Cita:
Empezado por JELIRM
GRACIAS,
Fijate que funciona pero solo con un TEdit si pongo dos no me funciona en el primero sino que en el segundo TEdit.
|
No habia visto el enlace que puso vtdeleon, ahi esta la respuesta a tu problema, lo que creo es que no supiste como hacerlo.
http://delphi.about.com/cs/adptips20...ltip0702_5.htm
Aqui esta el codigo completo con dos Tedit.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
private
procedure CMDialogKey(Var Msg: TWMKey) ;
message CM_DIALOGKEY;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CMDialogKey(Var Msg: TWMKEY) ;
begin
if (ActiveControl is TEdit) and
(Msg.Charcode = VK_TAB) then begin
ShowMessage('TAB key pressed?') ;
end;
inherited;
end;
end.
Si quieres usar otros objetos, pues tendras que modificar el codigo a tus necesidades.
Saludos