Как заблокировать крестик форма

← →
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> *

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