OnExit de Um maskedit

Delphi

18/01/2008

Tenho várias rotinas no evento OnExit de uma maskedit. O que eu preciso, é que quando o usuário no Maskedit digitar CTRL+TAB, o evento OnExit não seja disparado e o cursor volta para o Edit anterior. Como faço?


Paulo

Paulo

Curtidas 0

Respostas

Flyskin

Flyskin

18/01/2008

testa no início do evento se foi teclado as teclas que voce quer, no caso o CTRL+TAB.
se for, joga o foco para o campo desejado senão continua os procedimentos como está.


GOSTEI 0
Paulo

Paulo

18/01/2008

Acho que eu não expliquei bem a minha dúvida. Como faço para capturar o valor das teclas CRTL+TAB no OnExit de um Maskedit? É isso que eu quero.


GOSTEI 0
Djjunior

Djjunior

18/01/2008

vc não faz isso no onExit e sim no OnKeyPres ou OnKeyDown


GOSTEI 0
Paulo

Paulo

18/01/2008

Isso eu sei. Por isso a pergunta: Como faço para capturar o OnKeyPress de dentro de um OnExit? Como ler a tecla pressionada.


GOSTEI 0
Dbergkamps10

Dbergkamps10

18/01/2008

Ola

Tente Assim:
var
PressTab: Boolean;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
VK_TAB: PressTab:=true;
end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if PressTab = true then
 VoltaFocoEditAnterior;
end;


Espero ter ajudado.

Att
Dalton


GOSTEI 0
POSTAR