Du kannst einfach das Tracking des Menüs mit WM_CANCELMODE beenden:
Delphi-Quellcode:
procedure TMainForm.Form1Click(Sender: TObject);
begin
//Application.CreateForm(Unit1.TForm1, Application);
Unit1.Form1 := TForm1.Create(Application);
Unit1.Form1.Show;
PostMessage(
Handle, WM_CANCELMODE, 0, 0);
end;
Nichts anderes passiert, wenn du z.B. auf das Formular klickst.