Hacer evento Tab en TEdit

[[egostar]]

Usa este evento en el objeto Edit.

Código Delphi [-]
 
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if Key = 9 then begin // La tecla TAB tiene el código ASCII 9
     ShowMessage('Tecla TAB presionada!!!');
   end;
end;

Saludos

[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.

[[egostar]]

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
        { Private declarations }
        procedure CMDialogKey(Var Msg: TWMKey) ;
        message CM_DIALOGKEY; 
   public
        { Public declarations }
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

[JELIRM]

Gracias de nuevo por la cooperacion,
fijate que eso ya lo hice el problema es que la accion es para todos los TEdit que tenga la Form y yo quiero una en particular para cada TEdit asi:
////
Si presiono Tab en TEdit1
que aga algo
fin
Si presiono Tab en Tedit2
que haga otra cosa.
/////

A mi se me ocurria ponerle una condicion y es con respecto al foco del objeto asi:
Si presiono Tab en TEdit y el foco esta en TEdit1
efectua alguna accion
fin.
El problema es que no se como identificar en que foco esta yo he hecho lo siguiente pero me da error.

procedure TForma.CMDialogKey(Var Msg: TWMKEY) ;
begin
if (ActiveControl is TEdit) and (Edit1.SetFocus) and
(Msg.Charcode = VK_TAB) then
begin
ShowMessage('TAB key pressed?') ;
end;
inherited;
end;

De Antemano gracias por vuestra Ayuda

[[Lepe]]

Otra solución más siguiendo el ejemplo de egostar

Código Delphi [-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if Key = 9 then begin // La tecla TAB tiene el código ASCII 9
      if Tedit(Sender).Name = Edit1.Name then
         // pos es el uno
      else if Tedit(Sender).Name = Edit2.Name then
         // pos eso.
   end;
end;

LLegados a este punto, ahora en los demás TEdits, en su evento KeyUp elige el Edit1Keyup, por tanto todos los Tedits compartiran el mismo evento.

Si estas en el edit1, el parámetro Sender será el Edit1, si estas en el Edit32 pues el Sender será el Edit32 ... vamos... el objeto que desencadena el evento.

Saludos

[[egostar]]

Yo veo otras dos soluciones a este problema.

La primera es utilizar el evento OnKeyUp de cada Edit y usar el código que quieras para cada uno.

La otra es usar el siguiente código.

Código Delphi [-]
 
procedure TForm1.CMDialogKey(Var Msg: TWMKEY) ;
begin
   if Msg.CharCode = VK_TAB then begin
      if ActiveControl.Name = 'Edit1' then begin
         ShowMessage('TAB Presionado en TEdit1');
      end;
      if ActiveControl.Name = 'Edit2' then begin
         ShowMessage('TAB Presionado en TEdit2');
      end;
   end;
   inherited;
end;

Espero ayude y si alguien sabe de otra solución mas elegante será bienvenida.

Saludos

[JELIRM]

Hola,
Gracias Egostar mira que casualidad que algo asi hice para solucionar el problema lo unico que lo hice con el foco, como lo plantee anteriormente que queria saber como capturar en objeto se encontraba mi foco y inventando lo encontre!!!!!!!! el codigo es el siguiente:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;

procedure FormCreate(Sender: TObject);
private
procedure CMDialogKey(Var Msg: TWMKey) ;
message CM_DIALOGKEY;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
procedure TForm1.CMDialogKey(Var Msg: TWMKEY) ;
begin
if (ActiveControl is TEdit) and (Edit1.Focused) and
(Msg.Charcode = VK_TAB) then begin
ShowMessage('La Tecla TAB en Edit 1 esta Presionada?') ;
inherited;
end
else
if (ActiveControl is TEdit) and (Edit2.Focused) and
(Msg.Charcode = VK_TAB) then begin
ShowMessage('La Tecla TAB en Edit 2 esta Presionada?') ;
inherited;
end;

end;

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

El unico problema que le veo a este forma de resolverlo es que si yo quiero que el comportamiento con la tecla Tab para otros Tedit que yo no quiera que hagan ninguna accion sino que sean normales como un TEdit sin alteracion, no se puede tendria que ponerle oblligatoriamente una accion a cada uno.
Tu mencionabas dos Soluciones mas una que es similar a la que estoy exponiendo aqui y la otra como seria?????, Es de evaluar talvez me convenga mas la otra.

Gracias.. FORO
---Las Caidas te Hacen Aprender a Caminar--