Fabio Dell'Aria wrote:
Hi to all,
how I can simulate the "ALT+E" key-press command on a specified TForm
for open its "&Edit" menu?
Fabio, can you try:
1. Set TMyForm.KeyPreview := true
2. OnKeyDown Event Code:
procedure TMyForm.FormKeyDown( Sender: TObject; var Key: Word;
Shift: TShiftState) ;
begin
if (ssAlt in Shift) and (key = 65) then
AMenuItem.Click;
// or...
// if (ssAlt in Shift) and (lowercase(Chr(key)) = 'e') then
end;
I don't do that kind of key capture much so there may be a better way to test
for upper or lowercase 'e';
--
Warm Regards,
Lee
"The only thing that kept me out college...was high school."
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
