Напоминалка

[Smitt&Wesson]

Сообщение от min@y™

отмаза принята. баба с возу – кобыле бонус.

А по функционалу, что нибудь можешь сказать?

[Alex11223]

Какие на сей раз будут замечания? Постараюсь учесть все.

Блэкджека не хватает.

[Аватар]

Как сделать перехват этой кнопки

OnCanClose и ни каких перехватов

[min@y™]

А по функционалу, что нибудь можешь сказать?

Мне, как профессионалу, без исходника и запускать-то неинтересно.
сорри.

[Аватар]

OnCanClose

Тю, напутал. OnCloseQuery само собой. И сообщение еще ловить WMQueryEndSession при закрытии виндой

[Smitt&Wesson]

Сообщение от min@y™

Мне, как профессионалу, без исходника и запускать-то неинтересно.
сорри.

Могу в личку скинуть, если интересно.

Сообщение от Alex11223

Блэкджека не хватает.

А это, что ещё за зверь?

Сообщение от Аватар

Тю, напутал. OnCloseQuery само собой. И сообщение еще ловить WMQueryEndSession при закрытии виндой

Аватар, спасибо. А WMQueryEndSession в каком обработчике ловить? Просто никогда не сталкивался.

[min@y™]

Могу в личку скинуть, если интересно.

чо ж не в паблик? боишься, что спиратют?? гыгыгы

А это, что ещё за зверь?

А WMQueryEndSession в каком обработчике ловить? Просто никогда не сталкивался.

можно, например, в Application.OnMessage, можно и руками для формы мессадж-хэндлер накарябать. Или вот тут ещё:
12.png

большая ссылка на тытрубу.

[Аватар]

Просто никогда не сталкивался

Выдернул из рабочей делфийской проги, в бюлдере не сильно отличается

type
  TFMain = class(TForm)
    ...
    procedure FormCreate(Sender: TObject);
    procedure PItemCloseClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
  private
    lCanClose: Boolean;
    ...
  end;


procedure TFMain.FormCreate(Sender: TObject);
begin
  lCanClose:=False;
end;

{Обработчик чего-то, что может закрывать приложение. В данном случае пункт меню}
procedure TFMain.PItemCloseClick(Sender: TObject);
begin
  lCanClose:=True;
  Close;
end;

procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=lCanClose;
// Если lCanClose=False, то здесь сворачивать в трей
end;

{Что-бы винда могла закрыть приложение и не зависала при завершении ее работы}
procedure TFMain.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  lCanClose:=True;
  inherited;
end;

[Smitt&Wesson]

Сообщение от Аватар

Выдернул из рабочей делфийской проги, в бюлдере не сильно отличается

Не нравятся мне глобальные переменные, хоть и приватные. Сделал через тэг формы. Всё равно он пустовал.

[Аватар]

Не важно, можно и свойством формы сделать. А переменная не глобальная, она только в методах формы видна

PS Между прочим tag более глобален, если так можно сказать, чем переменная определенная в private класса. Его, этот самый tag, видно и можно изменить во всех местах, где доступен указатель на экземпляр класса, а та переменная фигвам