wenn du dem Menüpunkt ein Alt-Kürzel (Unterstrichener Buchstabe, Accelerator, kA wie man das genau nennt, Caption mit & vor dem jeweiligen Buchstaben) gönnst kannst du das so realisieren:
Delphi-Quellcode:
datei1.caption='&datei';
procedure TForm1.Button1Click(Sender: TObject);
const VK_D=$44;//kannst du evtl weglassen
begin
keybd_event(VK_MENU, 0, 0, 0);
keybd_event(VK_D, 0, 0, 0);
keybd_event(VK_D, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
end;
Gruß Frank