Подписаться на RSS рассылку
Главная » Статьи по 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;

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

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

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-2016 Программирование на Delphi для начинающих и не только

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта