Помогите через mаssеgеdlg управлять формой!

[Волк]

Как сделать через mаssеgеdlg чтобы при нажатии на кнопку ок форма закрывалась а при нажатии на отмена она не закрывалась? Подскажите кто может?

[SERG1980]

if messagedlg('Закрыть программу?',mtWarning,
[mbYes,mbNo],0)=mrYes then form1.Close

или это дело можно засунуть в событие формы

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('Закрыть программу?',mtWarning,
[mbYes,mbNo],0)=mrNo then CanClose:=false
end;

[Волк]

большое спасибо попробую я как раз искал такой способ (в смысле 2)

Прекратите копировать предыдущий пост!

[FaTaL]

ИМХО лучше использовать MessageBox т.к. там локализовано под винду. Не красиво например когда прога русская, там через MessageDlg высвечиваются кнопки Yes No. С MessageBox будут русские кнопки Да Нет

[Волк]

Как через MessageBox сделать клавиши?
Русские?

[KORN]

попробуй ввести

messagebox(handle, 'сообщение', 'заголовок окна', MB_ICONINFORMATION+MB_YESNO);
//для условий 
if messagebox(handle, 'сообщение', 'заголовок окна', MB_ICONINFORMATION+MB_YESNO)=ID_YES then

[Волк]

Как сделать русские клавиши??????????????????????????:c onfused:
KORN спасибо помогло!!!!!!!!!!

Прекратите копировать предыдущий пост!

[Kotofff]

Здесь какие хочешь диалоги с какими хочешь кнопками можно сделать. Просто скопируй содержимое папки в Lib твоих Делфей .. или положи в каталог проекта.

[r9m]

Волк, у тебя винда русская?

[Волк]

А как в messagebox сделать перенос? Заранее спасибо

Да а че?но у меня виста!

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

Волк, у тебя винда русская?

да а че? но у меня виста