Скачать: CL | DM;

Запретить Alt + F4 форме, а при нажатии на кнопку разрешить...   Найти похожие ветки 

← →
Леша   (2003-09-04 02:11) [0]

Имеется форма и нужно сделать так, чтобы Alt + F4 не срабатывала. Форма не должна закрываться. При нажатии на кнопку проверяется условия и если все верно - форма закрывается. Как включить и как отключить реакцию на закрытие по Alt + F4

---

← →
Vagrant ©   (2003-09-04 02:52) [1]

TForm1=class(TForm)
........
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
private
public
isCloseEnable:Boolean;
End;

procedure Form1.FormCreate(Sender: TObject);
Begin
.........
isCloseEnable:=false;
End;

procedure Form1.FormCloseQuery(Sender: TObject; var CanClose:boolean);
Begin
CanClose:=isCloseEnable
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
IF // Здесь проверка условия
then Begin
isCloseEnable:=true;
Close
End;
end;

---

← →
Леша   (2003-09-04 03:04) [2]

То что нужно.
СПАСИБО Vagrant.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c