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

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

Блокировка кнопки закрытия модального окна. [D7, XP]

F1 ©   (2005-10-24 10:44:00) 

Добрый день.
Каким обоазом можно сделать недоступной кнопку закрытия окна?
Заранее благодарен.

---

Antonn   (2005-10-24 12:49:00) [1]

procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
 DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;


---

F1   (2005-10-24 11:53:00) [2]

> Desdechado ©   (24.10.05 10:57) [1]
> пишешь в обработчике OnClose
> Action := caNone;

Несоотв. типов.

---

msguns   (2005-10-24 11:53:00) [3]

Событие TForm.OnCloseQuery

---

Leonid Troyanovsky   (2005-10-24 11:53:00) [4]

> F1   (24.10.05 11:50) [5]
> 1, 2 варианты не проходят

> в 1-ом варианте ошибка: Несоотв. типов.


Не верю.

--
Regards, LVT.

---

F1   (2005-10-24 11:52:00) [5]

> Что, где, когда

в 1-ом варианте ошибка: Несоотв. типов.

---

F1   (2005-10-24 11:50:00) [6]

1, 2 варианты не проходят

---

Leonid Troyanovsky   (2005-10-24 11:48:00) [7]

> ZZZ   (24.10.05 11:43) [2]
> выдает ошибку: несоответствие типов


Что, где, когда

--
Regards, LVT.

---

Leonid Troyanovsky   (2005-10-24 11:44:00) [8]

> F1   (24.10.05 10:44)  

> Каким обоазом можно сделать недоступной кнопку закрытия окна?


var
 amenu: HMenu;
begin
 with TFormX.Create(nil) do
   try
     amenu := GetSystemMenu(Handle, False);
     EnableMenuItem(amenu, SC_CLOSE, MF_BYCOMMAND or MF_DISABLED);
     ShowModal;
     ..
   finally
      Free;
   end;
end;

--
Regards, LVT.

---

ZZZ   (2005-10-24 11:43:00) [9]

выдает ошибку: несоответствие типов

---

Desdechado   (2005-10-24 10:57:00) [10]

пишешь в обработчике OnClose
Action := caNone;

---

Наверх