Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
9-83850
Igor1984
2003-01-12 19:19
2003.06.26
Перекрытие спрайтов


1-84112
Sam
2003-06-08 01:28
2003.06.26
Kylix - не запускаются скомпилинные проги


1-84149
Bosso
2003-06-11 09:57
2003.06.26
Как бороть баг с 300-ми кнопками?


14-84671
Merfi
2003-06-08 15:11
2003.06.26
Глюк WinXp


1-84389
NAlexey
2003-06-09 13:10
2003.06.26
Перерисовка неклиентской области.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский