Отследить нажатие на крестик

← →
ShimON © (2005-02-04 18:44) [0]

Скажите, пожалуйста, как отследить нажатие ИМЕННО на крестик формы.

← →
Алхимик © (2005-02-04 18:49) [1]

Решение в лоб.
Form.Style = fsNone
Синий TShape на верхнюю часть формы
Button.Caption = "X" в правый верхний угол

:)

← →
ShimON © (2005-02-04 18:51) [2]

Интересно - но слишком сложно для этой проблемы, наверняка есть способ лучше!!!

← →
Плохиш © (2005-02-04 18:57) [3]

и чем так OnQueryClose не нравится?

← →
ShimON © (2005-02-04 19:00) [4]

Дело в том, что мне надо при нажатии на OK проверить все поля и в случае, если одно из них неправильно заполнено, нужно вернуться в форму и заставить исправить. Поэтому в OnQueryClose я поставил эту проверку, но по сути если человек нажимает на крестик или отмену(это сделал) форма должна закрыться без вопросов!!!!

← →
begin...end © (2005-02-04 19:06) [5]

> [4] ShimON © (04.02.05 19:00)

Может быть, можно закрывать или не закрывать форму в обработчике нажатия кнопки (в зависимости от результата проверки правильности ввода)?

Так ведь так и сделано. При нажатии на к-нить кнопку переменная принимает значение true или false. Так вот если нажать сначала на OK с неправильным полем, то переменная станет False, а затем нажать на крестик - форма не закроится :(

Ну я так понимаю, что при нажатии на ОК данные должнеы подтвердиться, а закрытие формы равносильно отмене(отказу от заполнения данных), если так, то в чем проблема???

← →
grom (2005-02-04 21:06) [8]

procedure OnSysCommand (var m: TMessage); message WM_SYSCOMMAND;
...
procedure TForm1.OnSysCommand;
begin
if M.wParam=SC_CLOSE then begin
beep;
exit;
end ;
inherited;
end;

Отследить нажатие на крестик Найти похожие ветки