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

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

Автор: Nomad

Tweet 
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;

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

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

0   Спам
(21.11.2010)
2. PaHaNjkee
Вот так лучше:
Application.Messagebox('Текст','Заголовок', mb_iconerror or mb_ok);

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


0   Спам
(29.06.2010)
1. Конь
То, что нужно! Спасибо
Имя *:
Email:


Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.