Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

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

← →
MakNik ©   (2003-08-18 11:48) [0]

Подскажите, плз., как сделать чтобы при нажатии на "х" приложение не закрывалось а спрашивало что делать?

---

← →
Григорий Ситнин ©   (2003-08-18 11:50) [1]

OnCloseQuery

---

← →
KILLER_ABV ©   (2003-08-18 11:54) [2]

if messagedlg("Покинуть программу?",mtWarning,[mbYes,mbNo],0)=mrYes then CanClose:=false;

чтото в этом роде...

---

← →
ZioN ©   (2003-08-18 15:10) [3]

В разделе private пишеш :
procedure WMClose(var a:TWMClose); message WM_Close;
А в разделе implementation :

procedure TForm1.WMClose(var a:TWMClose);
begin
//Споси что дальше делать!
//Делай то, что надо!
// Обрати внимание следущую строку!!!!
A.Result:=0; //------!------
end;


---

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

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c