Скачать: CL | DM;

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

← →
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)

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

---

← →
ShimON ©   (2005-02-04 19:11) [6]

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

---

← →
MacroDenS ©   (2005-02-04 19:55) [7]

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

---

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c