Скачать: CL | DM;

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

← →
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, при этом выпомнение приложения не останавливается.

---

← →
Glex ©   (2006-01-26 12:20) [5]

лол)))
close;
end;

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

---

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

close;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c