Trocar Tab por Enter no Delph 6
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
se caso alguem tiver um componente desse para versao 6 por gentileza me avise !
Grato
Wesley
Wesleygoncavles
Curtidas 0
Respostas
Mmtoor
04/10/2003
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;
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
Nadilson
04/10/2003
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???
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
Wesleygoncavles
04/10/2003
mas terei que fazer isso em todos os formularios
wesley
wesley
GOSTEI 0
Echoesofpinkfloyd
04/10/2003
mas terei que fazer isso em todos os formularios
wesley
:shock:
GOSTEI 0