вывести окно диалога

← →
koleg (2006-04-19 13:19) [0]

Уважаемые, подскажите пож-ста, чтоб при нажатии по кнопке Выход, появлялось диалоговое окно "Вы уверены" с кнопками (Да Нет). Где-то читал про это, но не могу найти.

← →
Ega23 © (2006-04-19 13:26) [1]

Главная ворма, событие OnCloseQuery
procedure TFClassConfig.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=(MessageBox(Handle, PChar("Çàêîí÷èòü ðàáîòó?"), PChar("Âíèìàíèå!"), MB_OKCANCEL or MB_ICONINFORMATION)=IDOK); end;

← →
koleg (2006-04-19 14:25) [2]

Handle, PChar-что это? дайте пож-ста линк где можно почитать об этом. Или в книжный магазин придется шагать?

← →
Ega23 © (2006-04-19 14:28) [3]

Handle - это идентификатор окна в системе, в рамках которого будет показан MessageBox.
PChar - это такой тип данных.
Подробно об этом можно почитать в хелпе.

← →
Джо © (2006-04-19 14:29) [4]

> [2] koleg (19.04.06 14:25)

Можно и проще
CanClose := MessageDlg ("Вы уверены, что хотите выйти?",mtWarning,[mbYes,mbNo],-1) = mrYes;

> Или в книжный магазин придется шагать?

Это обязательно :)

← →
GrayFace © (2006-04-19 15:31) [5]

> CanClose := MessageDlg ("Вы уверены, что хотите выйти?", mtWarning,[mbYes,mbNo],-1) = mrYes;

MessageBox лучше. "Пибикает" и кода лишнего нету. :)

По Handle: Help -> Windows SDK -> Указатель: "EnumWindows" -> кнопка "Group".

← →
koleg (2006-04-19 15:42) [6]

> Подробно об этом можно почитать в хелпе.

На анлицком???? Ужассс!!!

← →
koleg (2006-04-19 15:45) [7]

В любом случае спасибо всем кто откликнулся. Чувствую, что придется еще не раз обратиться за помощью.

← →
Джо © (2006-04-19 17:11) [8]

>
> [6] koleg (19.04.06 15:42)
> На анлицком???? Ужассс!!!

Надо, Федя, надо! (c)
;)

← →
Anatoly Podgoretsky © (2006-04-19 18:45) [9]

koleg (19.04.06 15:42) [6]
Ничего страшного, и более того обязательно.

← →
koleg (2006-04-20 00:01) [10]

Ребят, ну а дальше то? Диалоговое окно получил, а как дописать код, чтоб по кнопке Yes приложение закрылось?
procedure TForm1.Button3Click(Sender: TObject);
var CanClose: Boolean;
begin
CanClose := MessageDlg ("Âû óâåðåíû, ÷òî õîòèòå âûéòè?",mtWarning,
[mbYes,mbNo],-1) = mrYes;

end;

> [10] koleg (20.04.06 00:01)

Этот код, как и указывал [3] Ega23, нужно написать в обработчике события OnCloseQuery главной формы приложения.

> Уважаемые, подскажите пож-ста, чтоб при нажатии по кнопке
> Выход, появлялось диалоговое окно "Вы уверены" с кнопками
> (Да Нет). Где-то читал про это, но не могу найти.

Имхо, сообщение лучше оформлять примерно так:
"Обнаружены несохраненные данные. Хотите ли вы их сохранить?"
[Да, Нет, Отмена]

В противном случае окно подтверждения выхода, имхо, бесполезно, и будет только раздражать ваших будущих пользователей.

вывести окно диалога Найти похожие ветки