Fórum Componente substitui (ENTER) #257836
10/11/2004
0
Alguem conhece um componente que substitui a programação
que muda de foco quando digito ENTER
if key= #13 then
begin
Perform (CM_DialogKey, VK_TAB, 0);
key:=0;
end;
que muda de foco quando digito ENTER
if key= #13 then
begin
Perform (CM_DialogKey, VK_TAB, 0);
key:=0;
end;
Luilha
Curtir tópico
+ 0
Responder
Posts
10/11/2004
Gandalf.nho
Eu uso esse [url]http://delphi.icm.edu.pl/ftp/d30free/dosmove.zip[/url]
Responder
Gostei + 0
10/11/2004
Reginaldo174
Prefiro fazer via código, pois assim facilita a migração de uma versão para outra. veja...
private
procedure Tab_Enter(var Msg: TMsg; var Handled: Boolean);
procedure TForm1.Tab_Enter(var Msg: TMsg; var Handled: Boolean );
begin
if MSg.message=WM_KeyDown then if Msg.wParam=VK_Return then keybd_event(VK_Tab,0,0,0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=Tab_Enter;
end;
Pronto, todo seu programa aceita ENTER como TAB Agora.
private
procedure Tab_Enter(var Msg: TMsg; var Handled: Boolean);
procedure TForm1.Tab_Enter(var Msg: TMsg; var Handled: Boolean );
begin
if MSg.message=WM_KeyDown then if Msg.wParam=VK_Return then keybd_event(VK_Tab,0,0,0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=Tab_Enter;
end;
Pronto, todo seu programa aceita ENTER como TAB Agora.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)