Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
Delphi 10.1 Berlin Starter
|
Re: Fenster in den Hintergrund (gegenteil von Topmost)
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)
|