Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите!!!!!!!!!!!!! [D7, XP]

Geonew © (2006-01-26 11:56:00)
Здраствуйте!
Подскажите пожалуйста новичку, как с помощью messagedlg выдавать сообщение при нажатии на крестик в правом верхнем углу(крестик).

EvS (2006-01-26 12:32:00) [1]
close;

Glex (2006-01-26 12:20:00) [2]
лол)))
close; end;

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

GeoNew (2006-01-26 12:14:00) [3]
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, при этом выпомнение приложения не останавливается.

Gero (2006-01-26 12:04:00) [4]
http://www.delphimaster.ru/forums.shtml#rule

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

ЮЮ (2006-01-26 12:02:00) [5]
прям из Не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;

Плохиш (2006-01-26 11:59:00) [6]
Сообщение выдаётся так же как и при любом другом способе. При нажатии на крестик происходит попытка закрытия формы и выполняется обработчик OnQueryClose для формы.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »