Por que

[PabloZZZ]

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]]

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]

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]]

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]]

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

[[egostar]]

Empezado por PabloZZZ

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?

Empezado por gluglu

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]

Empezado por egostar

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.

Empezado por egostar

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]

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]]

Empezado por RK2

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]

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]]

Empezado por RK2

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.