Fórum Trocar Tab por Enter no Delph 6 #186215
04/10/2003
0
se caso alguem tiver um componente desse para versao 6 por gentileza me avise !
Grato
Wesley
Wesleygoncavles
Curtir tópico
+ 0Posts
04/10/2003
Mmtoor
procedure TFrm_Opcoes.DBEDIT1KeyPress(Sender: TObject; var Key: Char);
begin
with Tedit do
If Key = #13 Then
Begin
SelectNext(Sender as tWinControl, True, True );
Key := 0;
end;
end;
Gostei + 0
04/10/2003
Nadilson
Defina a propriedade KEYPREVIEW do formulário para TRUE e no evento ONKEYPRESS do mesmo formulário, digite:
if (Key = #13) then
begin
Key := 0; // evita o bip...
Perform(WM_NEXTDLGCTL, 0, 0);
end;
Isso fará com que se mude de objeto edit ao pressionar ENTER em todos os objetos edit do formulário...
Não é melhor assim???
Gostei + 0
04/10/2003
Wesleygoncavles
wesley
Gostei + 0
05/10/2003
Echoesofpinkfloyd
:shock:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)