Постоянно держать форму на заднем плане

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: 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;

{/codecitation}

Добавить комментарий