Emular a tecla TAB

06/02/2003

8

Por favor como faço para emular no Delphi/Kylix a tecla tab ao apertar o ENTER , podem me ajudar ?


Anonymous

Anonymous

Responder

Posts

06/02/2003

Rubensavelino

Por favor como faço para emular no Delphi/Kylix a tecla tab ao apertar o ENTER , podem me ajudar ?


:shock:

procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if not (ActiveControl is TDBGrid) then
begin
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end
else if (ActiveControl is TDBGrid) then
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then
selectedindex := selectedindex +1
else
selectedindex := 0;
end;


Ou então, pode-se tentar o seguinte método:

Utilize o evento onkeydown do componente e insira o seguinte comando:

if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar