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

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

Запрет Minimize конкретной формы

jobo ©   (2005-04-12 03:28:00) 

Есть несколько одновременно видимых форм, нужно что бы при вызове Application.Minimize не сворачиваласть одна форма, например Form2

---

jobo   (2005-04-18 03:27:00) [1]

млин, неужто никто не скажет?

---

jobo   (2005-04-16 16:27:00) [2]

проверка на SC_MINIMIZE не подходит, читайте выше. Скажите как избавиться от кнопки на таск баре?

---

Gero   (2005-04-16 08:59:00) [3]

> procedure TForm1.WmSysCommand(var Msg: TMessage);
> begin
>  if Msg.WParam = SC_MINIMIZE then exit
>    else inherited;
> end;

Корректнее будет так:

procedure TForm1.WmSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType and $FFF0 <> SC_MINIMIZE then inherited;
end;

---

jobo   (2005-04-16 08:54:00) [4]

пишу
ParentWindow := GetDesktopWindow;
FormStyle := fsStayOnTop;
и на таск баре появляется кнопка формы, как от нее избавиться не скрывая ока?

---

jobo   (2005-04-13 18:06:00) [5]

2alpet:
при твоем варианте вылазят некоторые неприятные бока, но думаю с ними уже можно бороться. спасибо.

2CHES:
дело не в Application.Minimize, при нажатии на кнопку на таскбаре происходмт тоже самое. А от нажатия на таскбаре отказаться низзя.

---

CHES   (2005-04-13 09:19:00) [6]

Кстати вот что в хелпе написано по поводу Application.Minimize

Note: Don't confuse the Minimize method, which minimizes an entire application, with minimizing a form or window. To minimize, maximize, or restore a window or form, change the value of its WindowState property.

Скорее всего придется отказаться от Application.Minimize

---

alpet   (2005-04-12 17:03:00) [7]

Вот так разве не работает:

procedure TForm1.FormClick(Sender: TObject);
begin
ParentWindow := GetDesktopWindow;
FormStyle := fsStayOnTop;
end;


---

jobo   (2005-04-12 16:35:00) [8]

2alpet: вариант не подходит т.к. форма должна быть поверх всех (TopMost)

2CHES:
такой вариант я первый попробовал, но при нажатии на таск баре или вызове Application.Mininize все равно сворачивается.

---

CHES   (2005-04-12 15:33:00) [9]

Сорри, невнимательно прочитал вопрос

---

CHES   (2005-04-12 15:30:00) [10]


...
type
 TForm1 = class(TForm)
 private
   { Private declarations }
 procedure WmSysCommand (var Msg: TMessage); message WM_SYSCOMMAND;
 public
   { Public declarations }
 end;
...

implementation
....

procedure TForm1.WmSysCommand(var Msg: TMessage);
begin
 if Msg.WParam = SC_MINIMIZE then exit
   else inherited;
end;

---

alpet   (2005-04-12 12:19:00) [11]

Установи их свойство hwndParent в GetDesktopWindow например.

---

Наверх