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/