Hi, 2008/1/15, Lee Jenkins <[EMAIL PROTECTED]>: > > 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';
Not always this keys open a menu, other times do others. So I cannot call directly the MenuItem.Click method. I need to simply simulate a keypress. How I can do this? -- > 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 > -- Best regards... Fabio Dell'Aria.
