Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
9-83834
Antrom
2003-01-12 14:56
2003.06.26
Анимация изображения


3-83877
DBDev
2003-05-29 11:45
2003.06.26
Знатоки, подскажите в чем ошибка? Не дает создать SP!!!!


1-84079
snower
2003-06-08 00:40
2003.06.26
передать в dll


1-84407
Saracin
2003-06-09 17:46
2003.06.26
Как выровнить один пункт меню например Help к левой границе.


1-84117
Михайлов Антон
2003-06-10 13:26
2003.06.26
про RichEdit