доступ к кнопкам на заголовке. [решено]

[Лекс Айрин]

Если кратко, то мне надо обеспечить выполнение диалога сохранения при закрытии главной формы с помощью кнопки на заголовке.

[trengtor]

В инспекторе берете (например) Form1.TForm1, вешаете свой обработчик на OnClose. Например:

Код: Выделить всё

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
// Обработка закрытия программы на случай, если SMC не был отключен
begin
  if SMCConnected then begin
    Application.ProcessMessages;
    SMCSetTorque(gMotorNum,FALSE); // Отключаем Torque
    Delay(50);
    SMCDisconnect; // Отключаем SMC
  end;
end;

(Если я правильно вас понял.)

[Лекс Айрин]

trengtor, понятно... то-есть, нужно просто обработчик перенести с onDestroy на onClose... попробуем-с

Спасибо.... не знаю, правда, что делать с CloseAction, но и без него все работает отлично

[resident]

Да, на OnClose можно вешать типа такого:

Код: Выделить всё

procedure TfMain.actExitExecute(Sender: TObject);
  var DlgSelected: integer;
  begin
    if actFileSave.Enabled
      then // если действие записи доступно, значит были изменения и нужно сделать запрос на их сохранение
        begin
           DlgSelected := MessageDlg('В программе уже есть измененный проект.'
                                    + #13#10
                                    + 'Сохранить изменения перед выходом?',
                                    mtConfirmation,
                                    [mbYes,mbCancel], 0);
           if DlgSelected = mrYes then SaveToFile;
        end;

    Application.Terminate;
  end;

[Лекс Айрин]

resident, спасибо, я все сделал. Мне главное, было понять где глюк... а то я в проге уже кучу текста потерял -- противная привычка жать на крестик... Зато косяк выловил))

[trengtor]

не знаю, правда, что делать с CloseAction

В данном случае можно забить.

[Лекс Айрин]

trengtor, собственно, так я и поступил

[Иван Шихалев]

Вот как раз в данном случае хорошим тоном будет не забить, а предусмотреть режим ДаНетОтмена, где Да — Сохранить, Нет — не сохранять, Отмена — отменить закрытие (CloseAction := caNone).

[Лекс Айрин]

Иван Шихалев, это есть в самом обработчике... ну, разве кроме отмены закрытия... но это мне просто пока не надо.

надо все же будет озаботиться... так, на всякий случай. Спасибо за консультацию, принцип я понял.

[svk12]

Для отмены закрытия надо обрабатывать событие OnCloseQuery.

[Иван Шихалев]

Для отмены закрытия надо обрабатывать событие OnCloseQuery.

Кстати, да. Так правильнее.

[Лекс Айрин]

Кстати, да. Так правильнее.

Так завтра и сделаю... мне же проще будет.

ЗЫ; не думал, что тут такое обсуждение будет