• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

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

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

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

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

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

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 895

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

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

...

begin

 Form1.OnClose := @frm1oncl;

end.
  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

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

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

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.
Системы безопасности в Белгороде

vovka3003's Website

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,544

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

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 смысла нет, оно в данном случае только для чтения.

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

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

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

Системы безопасности в Белгороде

vovka3003's Website