Fórum Trocar Tab por Enter no Delph 6 #186215

04/10/2003

0

Alguem sabe onde conseguir um componente que troque tab por Enter para a versao Delphi 6 ? tenho os componentes Enter e Menter, mas nao instala na versao 6 so na 5 ,

se caso alguem tiver um componente desse para versao 6 por gentileza me avise !



Grato

Wesley


Wesleygoncavles

Wesleygoncavles

Responder

Posts

04/10/2003

Mmtoor

crie uma variável numa unit separada e utilize o seguinte:
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;


Responder

Gostei + 0

04/10/2003

Nadilson

Ou melhor ainda:


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???


Responder

Gostei + 0

04/10/2003

Wesleygoncavles

mas terei que fazer isso em todos os formularios

wesley


Responder

Gostei + 0

05/10/2003

Echoesofpinkfloyd

mas terei que fazer isso em todos os formularios wesley


:shock:


Responder

Gostei + 0

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

Aceitar