My Visual Database — отменить закрытие главной формы

Re: отменить закрытие главной формы

null@example.com (vovka3003) — Wed, 18 Aug 2021 17:56:44 +0000

Оставил для наглядности специально.

Re: отменить закрытие главной формы

null@example.com (k245) — Wed, 18 Aug 2021 15:42:18 +0000

vovka3003 wrote:

Можно и раньше:

procedure CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   ShowMessage('CloseQuery');
   CanClose := false;
end;

procedure Close(Sender: TObject; Action: TCloseAction);
begin
   ShowMessage('Close');
   Action := caNone;
end;

begin
 Form1.OnCloseQuery := @CloseQuery;
 Form1.OnClose := @Close;
end.

Чтобы предотвратить закрытие достаточно одного обработчика OnCloseQuery . Событие OnClose срабатывает тогда, когда форма уже закрывается, менять Action смысла нет, оно в данном случае только для чтения.

Re: отменить закрытие главной формы

null@example.com (vovka3003) — Tue, 17 Aug 2021 18:04:03 +0000

Можно и раньше:

procedure CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   ShowMessage('CloseQuery');
   CanClose := false;
end;

procedure Close(Sender: TObject; Action: TCloseAction);
begin
   ShowMessage('Close');
   Action := caNone;
end;

begin
 Form1.OnCloseQuery := @CloseQuery;
 Form1.OnClose := @Close;
end.

Re: отменить закрытие главной формы

null@example.com (sparrow) — Tue, 17 Aug 2021 14:37:16 +0000

procedure frm1oncl (Sender: TObject; Action: TCloseAction);
begin
  Action := caNone;
end;

...

begin

 Form1.OnClose := @frm1oncl;

end.

отменить закрытие главной формы

null@example.com (sibprogsistem) — Tue, 17 Aug 2021 12:18:07 +0000

в роди как закрытие отменяется таким образом

procedure Form1_OnClose (Sender: TObject; Action: TCloseAction);
begin
  Action := caFree;
end;

но у меня как всегда не работает..

помогите отменить закрытие главной формы ..