comando perform no delphi 7

Delphi

30/04/2003

ola pessoal como faco no delphi 7
para quando teclo o enter o cursor ou foco passe para o proximo
campo, funcionando como um tab

grato

tuiobecker


Tuiobecker

Tuiobecker

Curtidas 0

Respostas

Thiago

Thiago

30/04/2003

No evento Key Press do Edit
begin
if key = #13 then
begin
key := #0;
perform(wm_nextdlgctl,0,0);
end;
end;
GOSTEI 0
Marlos Silva

Marlos Silva

30/04/2003

ola pessoal como faco no delphi 7
para quando teclo o enter o cursor ou foco passe para o proximo
campo, funcionando como um tab

grato

tuiobecker



No evento OnkeyPress
If key = #13 then
begin
SelectNext(Sender as TwindowsControl, true, true);
Key := #0;
end;
GOSTEI 0
POSTAR