Topic: Действие перед закрытием
Т,е. подскажите, как при закрытии формы всплывала подтверждение закрытия с выбором (отмена закрытия).
My Visual Database → Russian → Действие перед закрытием
Т,е. подскажите, как при закрытии формы всплывала подтверждение закрытия с выбором (отмена закрытия).
Hello vit007
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin // mbYes is 6 - mbNo is 7 - mbCancel is 2
If 7 = MessageDlg('Do you quit this application ?', mtConfirmation, mbYes + mbNo, 0) then
Cancel := True;
end;
JB
Если необходимо предотвращать закрытие формы, посредством стандартной иконки закрытия, расположенной в правом верхнем углу формы, тогда так
procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
If 7 = MessageDlg('Do you close this form?', mtConfirmation, mbYes + mbNo, 0) then Action := caNone;
end;
begin
frmAbonent.OnClose := @FormClose;
end.
А к форме прикрутить можно... т.е. посмотрел инфу по заказчику и при выходе (крестика вверх углу или кнопкой выход) вызывалась форма, где есть выбор (зачем заходил - позвонить, повторно позвонить,...), с занесением в главную таблицу...
А к форме прикрутить можно... т.е. посмотрел инфу по заказчику и при выходе (крестика вверх углу или кнопкой выход) вызывалась форма, где есть выбор (зачем заходил - позвонить, повторно позвонить,...), с занесением в главную таблицу...
Сделал для вас проект с примером
А на крестик тоже самое действие можно сделать...
Еще бы несколько событий, т.е. в ячейку данных вносилось не с заменой, а добавлялось (позвонил, повторно позвонил, отказался). В будущем попробую, чтоб в карточке (квитанции) события (позвонил, повторно позвонил, отказался) имели прикрепление к дате.
Спасибо за ваш пример.
А на крестик тоже самое действие можно сделать...
Еще бы несколько событий, т.е. в ячейку данных вносилось не с заменой, а добавлялось (позвонил, повторно позвонил, отказался). В будущем попробую, чтоб в карточке (квитанции) события (позвонил, повторно позвонил, отказался) имели прикрепление к дате.
Спасибо за ваш пример.
Для начала лучше реализовать данный функционал стандартно, после чего можно будет сделать как угодно используя скрипты. Немного передалал проект:
My Visual Database → Russian → Действие перед закрытием
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi