[vaska]

Где описывать действия при нажатие на неё? Имется в виду тот "крестик" в правом верхнем углу. Хочу сделать чтобы спрашивал "вы уверены что хотите выйти?".

[Admin]

Сообщение от vaska

Где описывать действия при нажатие на неё? Имется в виду тот "крестик" в правом верхнем углу. Хочу сделать чтобы спрашивал "вы уверены что хотите выйти?".

Событие "OnCloseQuery".

[san-46]

В свойствах формы (в Object Inspector) на закладке "Events" есть OnCloseQuery. Если создать этот обработчик событий, то именно там и надо спрашивать "вы уверены...". Если "не уверены", то CanClose установить в False (CanClose := False).

[vaska]

Уже получилось. Вот код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Хотите выйти?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
CanClose := False;
end;

[vaska]

Спасибо большое!