Die aufgerufene "Popup-Form" erhält bei einem Klick weiterhin den Fokus und wird auch nicht automatisch ausgeblendet
So wird die Form aufgerufen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
Form2.Visible := true;
end;
Und hier die CreateParams der "Popup-Form"
Delphi-Quellcode:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or WS_POPUP;
Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;