Hallo,
ich möchte auch noch mal auf meinen Tipp eingehen: Die Variante funktioniert nur dann, wenn die Dialoge mit
ShowModal
angezeigt werden. Wird ein Dialog mit
Show
aufgerufen funktioniert es ggf. nicht mehr. Dies ist dann der Fall, wenn auf dem MainForm ein Menüeintrag mit
ShortCut := F1
definiert wurde; jetzt hat nämlich das MainForm Vorrang.
Ein möglicher Workaround:
Delphi-Quellcode:
procedure TfrmMain.mnuHelpClick(Sender: TObject);
begin
if Screen.ActiveForm <> Self then
SendMessage (Screen.ActiveForm.Handle, WM_KEYDOWN, 0, VK_F1)
else
DoSomething
end;
Gruß