Постоянно держать форму на заднем плане
Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch
(* 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;
|