VCL Form als Popup Style

[Sunec]

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;