VPF::Фон и размер шрифта - Форум программистов

Yuriy

Дата 24.5.2004, 08:00 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Добрый день !

есть ли возможность менять цвет фона и размер шрифта в вызываемых окнах Showmessage (MessageBox) ?

буду благодарен за короткий пример или ссылку

спасибо

x77

Дата 24.5.2004, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

такой возможности нет.

но написать своё окно с произвольными настройками - 10-минутное дело.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Yuriy

Дата 24.5.2004, 08:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

спасибо
будем писать

Guest

Дата 25.5.2004, 11:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Да можно, но это немножко не правильно
Мессага использует системные настройки вида окон - шрифт, размер, цвет и т.д.
Перед выбросом окна можно поменять настройки, а по закрытию вернуть все в зад, но ИМХО это извращение!

Akella

Дата 27.5.2004, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

мне кажеться можно, т.к. в такое окно можно вставить даже checkbox
сейчас полезу и посмотрю как это сделать...
Добавлено @ 17:28
Уже нашел...

В примере показано стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "Больше не показывать это окно"
Используем CreateMessageDialog и добавляем любой компонент до того как будет вызвана ShowModal.

Код

procedure TForm1.Button1Click(Sender: TObject); 
Var 
  AMsgDialog: TForm; 
  ACheckBox: TCheckBox; 
begin 
  AMsgDialog := CreateMessageDialog('This is a test message.',
         mtWarning, [mbYes, mbNo]); 
  ACheckBox := TCheckBox.Create(AMsgDialog); 
  with AMsgDialog do 
  try 
    Caption := 'Dialog Title'; 
    Height := 169; 

    With ACheckBox do 
    begin 
      Parent := AMsgDialog; 
      Caption := 'Don''t show me again.'; 
      top := 121; 
      Left := 8; 
    end; 

    Case ShowModal of 
      ID_YES:;//здесь Ваш код после того как диалог будет закрыт 
      ID_NO: ; 
    end; 
    If ACheckBox.Checked then 
    begin 
      //... 
    end; 
  finally 
    ACheckBox.Free; 
    Free; 
  end; 
end;

Я думаю, что можно менять все, что угодно

Дерзай.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »