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

Вниз

Отмена закрытия приложения   Найти похожие ветки 

← →
inspirion   (2003-06-09 10:24) [0]

Мастера подскажите что я не правильно делаю
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.CreateForm(TMessageForm, MessageForm);
MessageForm.Label1.Caption:="Close?";
MessageForm.ShowModal;
if MessageForm.ModalResult=mrOK then begin
close;
end;
if MessageForm.ModalResult=mrCancel then
exit;
end;

---

← →
Stas   (2003-06-09 10:29) [1]

События CloseQuery
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

Application.CreateForm(TMessageForm, MessageForm);
MessageForm.Label1.Caption:="Close?";
MessageForm.ShowModal;
if MessageForm.ModalResult=mrOK then
CanClose:=true;

if MessageForm.ModalResult=mrCancel then
CanClose:=false;


end;

---

← →
Skier   (2003-06-09 10:57) [2]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
with TMessageForm.Create(Application) do begin
try
Label1.Caption := "Close?";
CanClose := ShowModal = mrOK;
finally
Free;
end; //try
end; //with
end;

---

← →
Armen   (2003-06-09 11:16) [3]

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.CreateForm(TMessageForm, MessageForm);
MessageForm.Label1.Caption:="Close?";
MessageForm.ShowModal;
if MessageForm.ModalResult<>mrOK
then Action:= caNone;
MessageForm.Free;
end;

---

← →
PI{}Puk   (2003-06-09 12:49) [4]

> procedure TMainForm.FormClose(Sender: TObject; var Action:
> TCloseAction);
> begin
> Application.CreateForm(TMessageForm, MessageForm);
> MessageForm.Label1.Caption:="Close?";
> MessageForm.ShowModal;
> if MessageForm.ModalResult=mrOK then begin
> close; {********неправильно********}
Action := caFree;
> end;
> if MessageForm.ModalResult=mrCancel then
> exit;
> end;

---

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

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

Наверх

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