делать кнопку с mrcancel результатом + свойство Cancel включить
там есть OnCloseQuery ?
Если мы говорим об одном и том-же, то у меня это так: procedure onKeyPress (Sender.. Key..) If Key = #27 Then OnClose(Self) ..... procedure onClose (Sender.. Close; ModalResult = mrCancel
вижу такое procedure TScreenColorPickerForm.KeyDown(var Key: Word; Shift: TShiftState); begin if (Key = VK_ESCAPE) then ModalResult := mrCancel else inherited; end;
а OnClose такой код вызывет далее ? Иногда бывает нужно.
отсутвует. емнип, если прямо вызвать Close, то всё ещё можно перехватить в OnCloseQuery
Обсуждают сегодня