Executar uma ação ao teclar Ctrl Enter. Como fazer?

Delphi

09/06/2004

Fala Galera!
Alguém sabe como eu faço para executar uma ação quando o usuário teclar junto Ctrl + Enter???

tipow, sei lá, no evento KeyPess do form:
if key = # ?????? then begin
     executa minha função
end;

Alguém poderia me ajudar com isso??? Valew!


Bueno

Bueno

Curtidas 0

Respostas

Xanatos

Xanatos

09/06/2004

Nao é no OnKeypress e sim no OnKeyDown!!

vc precisa mudar a propriedade KeyPreview para True

procedure TFrImovelRural.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (key=13)then
showmessage(´Control + Enter pressionados!!!´);
end;

Voce precisa saber qual ShiftState é o do Control !!!


GOSTEI 0
Bueno

Bueno

09/06/2004

Valew kra! era exatamente isso q eu precisava!


GOSTEI 0
POSTAR