Форум: "Основная";
Текущий архив: 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.028 c