Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Por que (https://www.clubdelphi.com/foros/showthread.php?t=54621)

PabloZZZ 25-03-2008 18:42:34

Por que OnKeyPreview del form no impacta en el de los componentes
 
Resulta que estoy haciendo una aplicación donde la telca '+' tiene un comportamiento especial, (incrementar un spinedit) pero no funciona correctamente.
Puse keypreview en true
con el foco en un TEdit, pulso '+'
En el FormKeyDown consulto por la tecla pulsada, si es un '+' le asigno 0 (para que no se procese en el TEdit) y sin embargo sale un + en el TEdit! a pesar que estoy diciendo Key = 0;

Qué podrá ser? hice una mini aplicación de ejemplo...
Gracias

Código Delphi [-]
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 96
    Top = 72
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
  end
end

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if (Key=107) or (Key=87) then begin // +
    Key := 0;
    end;
end;

gluglu 25-03-2008 18:48:41

Tienes que poner tu código en el evento OnKeyDown del TEdit. No basta en este caso ponerlo en el Form a pesar de tener en OnKeyPreview a True.

El evento que gestiona las pulsaciones y contenido del TEdit es el evento OnKeyDown del propio TEdit.

;)

PabloZZZ 25-03-2008 18:51:16

Pero no puedo estar poniendo la condición en cada TEdit.. para eso puse la condición en el OnKeyDown del form! para que sea global.. teoricamente.. se procesa antes que todos los demás componentes.. no?

gluglu 25-03-2008 18:56:21

Se procesa antes el evento OnKeyDown del Form que el del TEdit. Correcto.

Pero creo estar casi seguro que no causa ningún efecto poner Key := 0 en el evento del Form, sino que lo tienes que poner en el evento del TEdit para que si que cause efecto el Key := 0.

El evento OnKeyDown del Form sirve para 'detectar' pulsaciones del teclado en el Form antes que en los Controles individuales.

eduarcol 25-03-2008 19:00:53

puedes crear un componente derivado del TEdit, que tenga ese comportamiento y no tienes que programarlo en cada uno

egostar 25-03-2008 19:06:49

Cita:

Empezado por PabloZZZ (Mensaje 275148)
Pero no puedo estar poniendo la condición en cada TEdit.. para eso puse la condición en el OnKeyDown del form! para que sea global.. teoricamente.. se procesa antes que todos los demás componentes.. no?

Cita:

Empezado por gluglu (Mensaje 275149)
Se procesa antes el evento OnKeyDown del Form que el del TEdit. Correcto.

Pero creo estar casi seguro que no causa ningún efecto poner Key := 0 en el evento del Form, sino que lo tienes que poner en el evento del TEdit para que si que cause efecto el Key := 0.

El evento OnKeyDown del Form sirve para 'detectar' pulsaciones del teclado en el Form antes que en los Controles individuales.

Hola, de entrada el código de la tecla '+' es 187 y tú estas buscando 107 y 87, ahora, gluglu esta en lo cierto, el Key := 0 no tiene el efecto que deseas en ese evento, para eso necesitas usar el evento OnKeyPress de esta forma:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '+' then Key := #0;
end;

Dices que no quieres hacer esto para cada uno de tus Edit's, pues porque crees que Delphi nos hace fácil la vida, genera ese evento en cualquier Edit y después asignalo a todos los demas Edit's. Así de fácil......

Salud OS

Edito: Por cierto, trata de colocar un titulo mas descriptivo ya que eso de "Por que" no dice nada.......

PabloZZZ 25-03-2008 19:21:27

Cita:

Empezado por egostar (Mensaje 275151)
Dices que no quieres hacer esto para cada uno de tus Edit's, pues porque crees que Delphi nos hace fácil la vida, genera ese evento en cualquier Edit y después asignalo a todos los demas Edit's. Así de fácil......

Y si, no me queda otra... que raro.. tenia entendido que al asignar Key := 0 en el OnKeyPress del form tenia impacto en el de los componentes... voy a revisar código viejo... a ver como lo tenia implementado.

Cita:

Empezado por egostar (Mensaje 275151)
Edito: Por cierto, trata de colocar un titulo mas descriptivo ya que eso de "Por que" no dice nada.......

Ups! se me pasó! empecé a escribirlo... me puse a escribir el post y olvidé el titulo! ya está arreglado. Gracias!

Z

RK2 25-03-2008 19:36:12

Disculpen...simulacion emergencia de hospital
 
:confused: Hola a todos... necesito realizar una simulacion de la emergencia de un hospital en delphi 7 con los siguientes requerimientos:
(1) Tiempo de llegada de los pacientes.
(2) Tiempo de servicio.
(3) Tiempo de espera para ser atendidos.
(4) Tiempo que dura el paciente siendo atendido..

Quisiera saber si delphi cuenta con funciones que me ayuden en esta tarea (funciones que manejen distribuciones estadisticas)....Gracias por la ayuda.!!

Delphius 25-03-2008 19:46:29

Cita:

Empezado por RK2 (Mensaje 275160)
:confused: Hola a todos... necesito realizar una simulacion de la emergencia de un hospital en delphi 7 con los siguientes requerimientos:
(1) Tiempo de llegada de los pacientes.
(2) Tiempo de servicio.
(3) Tiempo de espera para ser atendidos.
(4) Tiempo que dura el paciente siendo atendido..

Quisiera saber si delphi cuenta con funciones que me ayuden en esta tarea (funciones que manejen distribuciones estadisticas)....Gracias por la ayuda.!!

Hola RK2, a lo que te enfrentas, como debes saber es una simulacion mediante colas.
Al menos yo no conozco que venga, de fábrica, algo elaborado con dichas funcioones... pero muy seguramente encuentres bibliotecas especializadas. Algunas seran pagas, tal vez otras sean gratis, pero de fábrica solo encontrarás algunas funciones básicas. Lo demás deberás hacer a mano.

No te sabría decir un sitio que ofrezca dichas bibliotecas, pero para manejar colas Delphi ya cuenta con los objetos necesarios: TQueque, TStack, etc.. si das una leída a la ayuda de Delphi notarás que ya vienen los objetos que implementan estos tipos abstractos de datos, lo demás será darle "cuerpo".

Por cierto, tu duda está fuera de tema, no pertenece al hilo deberías haber iniciado un hilo exclusivo para esto, por favor respeta la guia de estilo.

Saludos,

PabloZZZ 25-03-2008 23:33:47

Disculpen, pero algo de razón tenia....

En vez de hacer Form.OnKeyDown, le puse la condición en Form.FormKeyPress y funcionó!

Saludos
Z

Neftali [Germán.Estévez] 26-03-2008 09:49:04

Cita:

Empezado por RK2 (Mensaje 275160)
:confused: Hola a todos... necesito realizar una simulacion de la emergencia de un hospital en delphi 7 con los siguientes requerimientos:
(1) Tiempo de llegada de los pacientes.
(2) Tiempo de servicio.
(3) Tiempo de espera para ser atendidos.
(4) Tiempo que dura el paciente siendo atendido..

Quisiera saber si delphi cuenta con funciones que me ayuden en esta tarea (funciones que manejen distribuciones estadisticas)....Gracias por la ayuda.!!

Por favor revisa la Guía de estilo.
Lo lógico para hacer una pregunta nueva que no tiene que ver con el hilo actual es crear un nuevo mensaje en el foro correspondiente.


La franja horaria es GMT +2. Ahora son las 23:53:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi