| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как форму сделать не поверх всех?

SetWindowPos ©   (2006-02-12 18:34:00) 

Что бы форма была поверх всех я использую
    SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);

А как обратно сделать не поверх всех?

---

SetWindowPos   (2006-02-13 13:57:00) [1]

Нашёл, в чём было дело - Эта функция не работает, если её вызывать из соседней модальной формы!

Это основная форма, и с ней всё работает:

unit Unit1;
interface
uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,unit2;
type
 TForm1 = class(TForm)
   OnTop: TButton;
   Normal: TButton;
   NewFormCreate: TButton;
   procedure OnTopClick(Sender: TObject);
   procedure NormalClick(Sender: TObject);
   procedure NewFormCreateClick(Sender: TObject);
 private
 public
 end;

var Form1: TForm1;
implementation {$R *.DFM}

procedure TForm1.OnTopClick(Sender: TObject);  // Set AlwaysOnTop Form1
begin
  SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
end;

procedure TForm1.NormalClick(Sender: TObject);   // Set Normal Form1 - РАБОТАЕТ
begin
  SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
end;

procedure TForm1.NewFormCreateClick(Sender: TObject);  //Open NewForm
begin
 NewForm:=TNewForm.Create(self);
 TRY
   NewForm.ShowModal;
 FINALLY
   NewForm.Release;
 END;
end;

end.



А это вторая форма-модальная, которая создаётся из первой, и в ней функция SetWindowPos по отношению к форме Form1 не работает:


unit Unit2;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
 TNewForm = class(TForm)
   Normal: TButton;
   procedure NormalClick(Sender: TObject);
 private
 public
 end;

var  NewForm: TNewForm;
implementation
uses Unit1; {$R *.DFM}

procedure TNewForm.NormalClick(Sender: TObject);  //Set Normal Form1 - ЭТО НЕ РАБОТАЕТ ТОЛЬКО ПРИ ВЫЗОВЕ ИЗ СВОЕЙ ФОРМЫ!
begin
 SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
 close;
end;

end.


---

SetWindowPos   (2006-02-12 22:18:00) [2]

Только что создал пустой проект-всё работает!


procedure TForm1.OnTopClick(Sender: TObject);
begin
  SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
end;

procedure TForm1.NormalClick(Sender: TObject);
begin
  SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
end;


---

SetWindowPos   (2006-02-12 22:04:00) [3]

Это тоже не работает:
     SetWindowPos(Form1.Handle,HWND_BOTTOM,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);

Но если добавить SWP_HIDEWINDOW то окно прячется:

     SetWindowPos(Form1.Handle,HWND_BOTTOM,0,0,0,0,SWP_HIDEWINDOW+SWP_NOMOVE+SWP_NOSI ZE);

А как ещё можно сделать окно не поверх остальных?

---

Marser   (2006-02-12 18:52:00) [4]

Точнее выше всех обычных. Есть ещё HWND_BOTTOM

---

SetWindowPos   (2006-02-12 18:47:00) [5]

Оно не работает!
    SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);

Окно всё равно поверх всех висит!

---

Marser   (2006-02-12 18:39:00) [6]

HWND_NOTOPMOST

---

Наверх