Tecla Ctrl F12 - Como usar ??

Delphi

20/10/2003

- Num cadastro de entrada de dados num banco de dados, gostaria de ao apertar as teclas CTRL+F12 o sistema exbisse um label e um edit que estaria ocultos ate as teclas serem precionadas.
- Mas esta tecla poderia ser precionada a qualquer momento.

- coloquei no onkeypress do formulário para fazsr um teste, com a tecla F12 mas naum funcionou.

Begin
if KEY = VK_F12 then
begin
label34.Visible:=true;
edit5.Visible:=TRue;
edit5.Text:=´01´;
edit5.SetFocus;
end;
end;

O Código que coloquei foi este

Agradeço antecipadamente
T+

Nilson :)


Nilson Junior

Nilson Junior

Curtidas 0

Respostas

Rafaelgm

Rafaelgm

20/10/2003

Coloque no OnKeyDown do Formulário o seguinte:

if (KEY = VK_F12) and (Shift = [ssCtrl]) then
begin
  // Seu código aqui
end;


Mude a propriedade KEYPREVIEW do Formulário para TRUE.

Rafael Monteiro


GOSTEI 0
Nilson Junior

Nilson Junior

20/10/2003

Valeu companheiro, funcionou, mas mais uma coizinha.

- Quando jogo Ctrl+F12 ele abre uma label, e um edit e jogo o foco para o Edit.

- Gostaria de saber como guardar onde estava o foco anteriormente(antes de teclar o CTRL+F12 - qual edit) para depois de preencher o edit aberto pela combinação das teclas voltar para o foco anterior.

- Tem jeito

Nilson :lol:

Brigadão e T+


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

20/10/2003

var
Controlecomfoco: TControl;

antes de mudar o foco para o edit:

Controlecomfoco := ActiveControl;

depois p/ voltar ao antigo componente em foco

Controlecomfoco.SetFocus;


GOSTEI 0
POSTAR