tab amp; Enter
Como eu faco para que ao apertar o tab a selecao va para outro LabeledEdit ???
como faco para ao apertar enter a acao do botaum x seja ativada??
Favor postar o título em minúsculas
Moderador
como faco para ao apertar enter a acao do botaum x seja ativada??
Favor postar o título em minúsculas
Moderador
Anonymous
Curtidas 0
Respostas
Inutaishou
07/04/2003
No evento OnKeyDown:
If Key = vk_tab Then
LabeledEdit#.SetFocus; // é o número do labeledEdit a ser focado.
If key = vk_return Then
BotãoXClick(action); // o botão deve possuir um evento OnClick com as funções necessárias.
If Key = vk_tab Then
LabeledEdit#.SetFocus; // é o número do labeledEdit a ser focado.
If key = vk_return Then
BotãoXClick(action); // o botão deve possuir um evento OnClick com as funções necessárias.
GOSTEI 0
Anonymous
07/04/2003
vlw
GOSTEI 0
Eniorm
07/04/2003
Ops, esqueça o esquema acima cara, que me desculpe GRFrones ( :lol: ), mas
eu coloquei um procedimento bem mais eficaz. Está em
www.apocaliptica.hpg.com.br/hackz/delphi/
Lá, procure por um arquivo .txt chamado procedure ligar setas etc.
É totalmente customizavel. O esquema de GRFrones vc tem que colocar
aquele cód em todos os edits, no meu, apenas no form principal da
aplicação e...
...boa sorte.
Fui . . .
eu coloquei um procedimento bem mais eficaz. Está em
www.apocaliptica.hpg.com.br/hackz/delphi/
Lá, procure por um arquivo .txt chamado procedure ligar setas etc.
É totalmente customizavel. O esquema de GRFrones vc tem que colocar
aquele cód em todos os edits, no meu, apenas no form principal da
aplicação e...
...boa sorte.
Fui . . .
GOSTEI 0
E_gama
07/04/2003
1) Configure a propriedade ´[b:5f4ddefb59]KeyPreiew[/b:5f4ddefb59]´ do seu form para [b:5f4ddefb59]TRUE[/b:5f4ddefb59]
2) No evento ´[b:5f4ddefb59]OnKeyPress[/b:5f4ddefb59] do form, escreva o código abaixo:
2) No evento ´[b:5f4ddefb59]OnKeyPress[/b:5f4ddefb59] do form, escreva o código abaixo:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then // ENTER begin Key := 0; SelectNext(ActiveControl, True, True); end; end;
GOSTEI 0
Anonymous
07/04/2003
no evento KeyPress do Form
begin
if Key = #13 then
begin
key := 0;
KeyBd_Event(VK_TAB,0,0,0);
end;
não esqueça de atriva a propriedade KeyPreview do Form Ok!!!
begin
if Key = #13 then
begin
key := 0;
KeyBd_Event(VK_TAB,0,0,0);
end;
não esqueça de atriva a propriedade KeyPreview do Form Ok!!!
GOSTEI 0
Anonymous
07/04/2003
[quote:5b62f640bb=´walbert castro´]no evento KeyPress do Form
begin
if Key = #13 then
begin
key := 0;
KeyBd_Event(VK_TAB,0,0,0);
end;
não esqueça de atriva a propriedade KeyPreview do Form Ok!!![/quote:5b62f640bb]
Tbm é boa essa, mas..., me perdoem, a minha dica que está em www.apocaliptica.hpg.com.br/hackz/delphi/
é imbatível, pois vc tem apenas que colocar no form principal da aplicação.
Fui...
begin
if Key = #13 then
begin
key := 0;
KeyBd_Event(VK_TAB,0,0,0);
end;
não esqueça de atriva a propriedade KeyPreview do Form Ok!!![/quote:5b62f640bb]
Tbm é boa essa, mas..., me perdoem, a minha dica que está em www.apocaliptica.hpg.com.br/hackz/delphi/
é imbatível, pois vc tem apenas que colocar no form principal da aplicação.
Fui...
GOSTEI 0