Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
Вниз
Закрытие окна Найти похожие ветки
← →
pomka (2003-11-12 20:05) [0]Привет! Подскажите мастера что должно стоять в коде после слов // нет ? Чтоб при
нажатии на крестик в верхнем правом углу формы, приложение не закрывалось?
Вот код:
procedure TForm1.FormMessages(var msg: TMessage);
begin
if msg.wParam = SC_CLOSE then
begin
IF (MessageBox(Application.handle,"Вы хотите выйти ? ", "Dairy",
MB_YESNO +MB_DEFBUTTON2+ MB_ICONINFORMATION)=IDYES) then
begin
//да
Form1.save;
Form1.Exit_Tray;
end
else begin
//нет
Inherited; // <- не помогает, форма закрывается :(
end;
end;
end;
← →
Zacho (2003-11-12 20:24) [1]
> pomka (12.11.03 20:05)
А не проще ли использовать специально предназначенное для таких целей событие OnCloseQuery ?
← →
pomka (2003-11-12 20:37) [2]незнаю! а как там выглядит код? а для этого примера бы :)
← →
Zacho (2003-11-12 20:43) [3]
> pomka (12.11.03 20:37) [2]
А нажать F1 никак ?
← →
Zacho (2003-11-12 20:44) [4]Ладно, вот тебе код, причем прямо из хелпа:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg("Close the form?", mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;
end;
← →
pomka (2003-11-12 20:44) [5]ненашел не че! API смотрел тоже
← →
Zacho (2003-11-12 20:52) [6]
> pomka (12.11.03 20:44) [5]
Искать уметь надо. Help - Указатель - TForm - Events
← →
Prov (2003-11-12 20:55) [7]Нужно поставить OnCloseQuery: Application.Run и форма не будет закрыватьяс по нажатии на крестик в углу
← →
Zacho (2003-11-12 21:02) [8]
> Prov © (12.11.03 20:55) [7]
Чего ???? Да, не перевелись еще извращенцы на Руси :-)))
← →
Vlad (2003-11-12 21:14) [9]
> Prov © (12.11.03 20:55) [7]
Трава у тебя зачетная ! :)
← →
pomka (2003-11-12 21:14) [10]Спасибо большое!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c
