Помогите!!!!!!!!!!!!!

← →
Geonew © (2006-01-26 11:56) [0]

Здраствуйте!
Подскажите пожалуйста новичку, как с помощью messagedlg выдавать сообщение при нажатии на крестик в правом верхнем углу(крестик).

← →
Плохиш © (2006-01-26 11:59) [1]

Сообщение выдаётся так же как и при любом другом способе. При нажатии на крестик происходит попытка закрытия формы и выполняется обработчик OnQueryClose для формы.

← →
ЮЮ © (2006-01-26 12:02) [2]

прям из Неlp-а:

OnCloseQuery example

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
if MessageDlg("Close the form?", mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;
end;

← →
Gero © (2006-01-26 12:04) [3]

http://www.delphimaster.ru/forums.shtml#rule

Рекомендуется, пункт 2.

← →
GeoNew © (2006-01-26 12:14) [4]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

if messagedlg("Âû äåéñòâèòåëüíî õîòèòå âûéòè?",mtconfirmation, [mbYes, mbNo], 0) = mrYes then
begin
if Modified then
case Application.MessageBox(
"Äàííûå áûëè èçìåíåíû. Ñîõðàíèòü èõ?",
"Ïîäòâåðäèòå ñîõðàíåíèå èçìåíåíèé",
MB_YESNOCANCEL+MB_ICONQUESTION) of
IDCancel: CanClose := false;
IDNo: ClientDataSet1.SavePoint := MySavePoint;
end;
close;
end;
end;

При нажатии на Yes прогомма зацикливатся, а при нажатии на NO Скрывает форм1, при этом выпомнение приложения не останавливается.

лол)))
close; end;

при close снова происходит OnCloseQuery. Или пиши в OnClose(не рек.), или
CanClose:= true вместо close;

← →
EvS (2006-01-26 12:32) [6]

close;

Помогите!!!!!!!!!!!!! Найти похожие ветки