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

[KORN]

перенос делается так
messagebox(handle, Pchar('сообщение'+#13+'продолжение' ), 'заголовок окна', MB_ICONINFORMATION+MB_YESNO);

[Волк]

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

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

Как это сделать в Delphi 2007?

[Kotofff]

Наверное никак.
У меня Delphi 7
Но ты все равно попробуй - вдруг пойдет ...

[KORN]

Сообщение от Волк

Как это сделать в Delphi 2007?

точно так же как и во всех остальных версиях... допустим тебе нужно не MB_ICONINFORMATION, а что то другое тогда начинаешь писать MB_ и нажимаешь CTRL+ПРОБЕЛ и вываливается такое меню и там будет куча всяких других опций... выбирай и пользуйся

[Lemo]

Сообщение от 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;

По второму обрывку кодаЖ при нажатии кнопки НЕТ форма закрываеться, и при нажатии кнопки ДА, форма тожа закрываеться =(((

[KORN]

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

[Lemo]

Вот все норм функционирует =) Спс!
Я вот пишу рограмму на русском, и как то не коректно будет видеть Английские Yes и No ? как их на русские поменять?!

[SERG1980]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if MessageBox(0,'Закрыть программу','Подтвержение',MB_ICONQUESTION+MB_YESNO+MB_SYSTEMMODAL)=IDNO
 then CanClose:=false;
end;

и не надо никакого abort(см. топик №16) вставте это сообщение в св-во OnCloseQuery формы

[Lemo]

У меня при закрытии формы паоказывает окно "Придупреждения закрытия", но когда я несколько раз наживаю на кнопку, которая отвечает

Form1.close

появляеться несколько этих окон предупреждений, как мне сделать это окно единственным?!
PS:прикреплена картинка!

[KORN]

ты мой пример пробовал7