colocar evento onkeypress no oncreate

Delphi

17/06/2004

Galera como eu faço tipo pra quando a aplicação carregar se a tecla C estiver pressionada ele executar uma ação ?

valeu


Koringa

Koringa

Curtidas 0

Respostas

Fer_nanda

Fer_nanda

17/06/2004

Acho q é isso q está precisando. No KeyDown do form coloque

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 67 then showmessage(´faça alguma coisa´);
end;


Até


GOSTEI 0
Rômulo Barros

Rômulo Barros

17/06/2004

Siga os passo que fer_nanda falou e, no evento OnShow do Form, force o pressionamento de uma tecla.


GOSTEI 0
Koringa

Koringa

17/06/2004

[quote:f97d6aeeec=´Undeclared Identifier´]Siga os passo que fer_nanda falou e, no evento OnShow do Form, force o pressionamento de uma tecla.[/quote:f97d6aeeec]


è mas eu gostaria que tipo caso o cra clique no .exe par abrir a aplicação com a tecla P pressionada ela abre outro form entende ? mas nao deu certo nao. ( Tipo ele não precisa pedir para pressionar ou voce esta pressionando e ele reconhece ou nao )


Se souberem agradeco

valeu pelas dicas


GOSTEI 0
Xanatos

Xanatos

17/06/2004

Bom com letra eu nao sei... mas com control, alt, shift voce pode conseguir com essa funcao! voce nao vai colocar ela em um form mas sim na unit principal!!!

if KeyboardStateToShiftState = [ssShift] then
    MessageBox(0, ´Shift Pressionado.´, ´Agenda´, MB_ICONSTOP);


As letras é complicado pois se teu executavel estiver e um lugar com outros arquivos ...quando voce digital o P o windows automaticamente procura por um arquivo que comece com P e vai ser chato isso!!! :idea: [/code]


GOSTEI 0
POSTAR