Своим опытом делится Олег Кулабухов:
В данном случае можно выкрутиться, создав невидимый Label и назначив ему соответствующий обработчик. В приведенном примере по Alt-M фокус будет переведен на Memo1.
procedure TForm1.FormCreate(Sender: TObject); begin Label1.Visible := false; Label1.Caption := '&M'; Label1.FocusControl := Memo1; end; |
[001919]