Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Вниз

Как заблокировать крестик форма   Найти похожие ветки 

← →
DelphiLexx ©   (2007-05-25 09:44) [0]

У каждой формы в правом верхнем углу есть крестик. Как его на время заблокировать.

---

← →
Johnmen ©   (2007-05-25 09:57) [1]

А смысл? Продвинутый юзер нажмет Alt-F4.

http://sql.ru/forum/actualthread.aspx?tid=433208

---

← →
Anatoly Podgoretsky ©   (2007-05-25 10:00) [2]

> Johnmen  (25.05.2007 09:57:01)  [1]

И еще одна сотня методов

---

← →
Garacio ©   (2007-05-25 10:05) [3]

http://www.programmersforum.ru/archive/index.php/t-3506.html

---

← →
Johnmen ©   (2007-05-25 10:06) [4]

> Anatoly Podgoretsky ©   (25.05.07 10:00) [2]
> И еще одна сотня методов

Во-во...:)

---

← →
Garacio ©   (2007-05-25 10:07) [5]

Или ещё проще!!!

http://sources.codenet.ru/download/1343/pformhack.html

---

← →
Юрий Зотов ©   (2007-05-27 14:58) [6]

OnCloseQuery?

---

← →
SpellCaster   (2007-05-28 10:41) [7]

procedure Tfrm.BtnDisCloseClick(Sender: TObject);
var Sysmenu:HMenu;
begin
SysMenu:=GetSystemMenu(handle,false);
Windows.EnableMenuItem(Sysmenu,
 SC_CLOSE, MF_DISABLED or MF_GRAYED);
BtnDisClose.Enabled:=false;
BtnEnClose.Enabled:=true;
end;

procedure Tfrm.BtnEnCloseClick(Sender: TObject);
begin
BtnDisClose.Enabled:=true;
BtnEnClose.Enabled:=false;
GetSystemMenu(Handle,true);
Perform(WM_NCPAINT,Handle,0);
end;

---

← →
имя   (2007-06-01 03:50) [8]

Удалено модератором

---

← →
Ryan_xy   (2007-06-18 08:08) [9]

<a href=  ></a>  *

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.039 c