How to force a form to stay on desktop ?

[Flisk]

I Have tried several solutions but it never do as i wanted to do. I have tried to implement this code in the mainform


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;
[/color red]


but it pops up to the top sometimes when i open a webpage, start another program that fills the desktop. I want it to be pinned to the desktop. always on bottom

tried also a component that should force the application to stay on desktop, but i guess i've missed something, 'cause it didn't worked so good either- MY main form have no caption, and it transparent, just have some text on it, so it just looks silly if it doesn't stay the way i wanted pls help me out if someone have a solution or know a VCL that can fix this

 

[DelphiAaron]

If you set Formstyle to FsStayontop then the form will stay on top of all other applications.

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[Flisk]

thanks, but you mis underestood my question

it's 'always on top' and 'always on DESKTOP'

 

[DelphiAaron]

torry has some free form magnet vcl's.

http://www.torry.net

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[rdale2]

Funny, this last week I've searched for a similar solution... best I've come up with so far is:

do a google search for:
activeform or ActiveForm+IActiveDesktop+Delphi or something similar.

If you find something that works, please post back...