Componente substitui (ENTER)
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
Curtidas 0
Respostas
Gandalf.nho
10/11/2004
Eu uso esse [url]http://delphi.icm.edu.pl/ftp/d30free/dosmove.zip[/url]
GOSTEI 0
Reginaldo174
10/11/2004
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.
GOSTEI 0