Re: [delphi-br] Evento OnKeypress

[Alisson]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   ShowMessage(Key);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Key : Char;
begin
   Key := #65;
   FormKeyPress(Self, Key);
end;
__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/