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