Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Диалоговые окна » MessageBox с заголовком и текстом справа

MessageBox с заголовком и текстом справа

Автор: Nomad

procedure MsgBox(Capt, Msg: string); 
begin
  MessageBox(0, PChar(Msg), PChar(Capt), mb_Right);
end;

Capt - заголовок мессаджбокса, Msg - текст сообщения. Мессаджбокс будет с одной кнопкой Ok.

Пример использования:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MsgBox('Заголовок', 'Тест'); 
end;

Просмотров: 12661

Обсудить на форуме

(21.11.2010)

2. PaHaNjkee

Вот так лучше:
Application.Messagebox('Текст','Заголовок', mb_iconerror or mb_ok);

Существуют вместо mb_iconerror еще вот такие:
mb_iconerror - Иконка в виде ошибки и звук тоже ошибочный
mb_iconWarning - Иконка в виде желтого треугольника с восклицательным знаком
mb_iconinfromation - Иконка в виде информационного значка

(29.06.2010)

1. Конь

То, что нужно! Спасибо