Einzelnen Beitrag anzeigen

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#5

Re: Fenster in den Hintergrund (gegenteil von Topmost)

  Alt 4. Sep 2007, 22:47
so "klebe" ich ein Fenster auf den Desktop, so dass nix mehr dahinter sein kann:
Delphi-Quellcode:
   ...
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  frmBack: TfrmBack;

implementation

{$R *.dfm}

procedure TfrmBack.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then
  begin
    Params.WndParent := GetDesktopWindow;
    Params.Style := WS_CHILD;
  end;
end;
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat