[SOLVED] Form OnTop not working

[Pe3s]

Hello, I have a question: why isn't the Windows On Top procedure working? I added Windows to uses, is there anything else I missed?

Code: Pascal  [Select][+][-]

1. procedure TForm1.CheckBox1Change(Sender: TObject);
2. begin
3.   if CheckBox1.Checked then
4.     SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
5.       SWP_NOMOVE or SWP_NOSIZE)
6.   else
7.     SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
8.       SWP_NOMOVE or SWP_NOSIZE);
9. end;  
10.  

[Soner]

What wand you do? If you want the form to always be in the foreground then do this:
FormStyle:=fsSystemStayOnTop;

[tetrastes]

This state is not permanent, and activates only when you set the CheckBox1.Checked.
To better understand, try this code:

Code: Pascal  [Select][+][-]

1. procedure TForm1.CheckBox1Change(Sender: TObject);
2. begin
3.   if CheckBox1.Checked then
4.     SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0,
5.       SWP_NOMOVE or SWP_NOSIZE)
6.   else
7.     SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
8.       SWP_NOMOVE or SWP_NOSIZE);
9. end;  
10.  

[Pe3s]

Thank you