Текущий архив: 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.027 c
