Tips (1541)

Tip Bewertung (16):

(* Mit dem folgendem Code liegt die Form des
Programms diereckt auf dem Desktop, also immer
Hintergrund, selbst wenn sie den Fokus bekommt *)


protected
  procedure CreateParams(var Params: TCreateParams); override;

//...

procedure TForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then
  begin
    Params.WndParent := GetDesktopWindow;
    Params.Style := WS_CHILD;
  end;
end;