Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

Шрифт MessageBox’ов и InputBox’ов   Найти похожие ветки 

← →
Dr. Genius   (2004-10-20 21:23) [0]

В настройках моей программы я хочу сделать так, чтобы можно было изменять шрифт программы. Но изменяется только шрифт форм. Я же хочу, чтобы изменился шрифт всего приложения, а в частности шрифт MessageBox’ов и InputBox’ов. Как это можно реализовать?

---

← →
KilkennyCat ©   (2004-10-20 21:34) [1]

сделать свои боксы.

---

← →
GuAV ©   (2004-10-20 23:38) [2]

> сделать свои боксы.

проще всего их сделать на базе стандартных.
procedure TForm1.Button1Click(Sender: TObject);
var Result: Integer;
begin
 with CreateMessageDialog("zzzzzzzz", mtInformation, [mbOK, mbCancel]) do
 try
   Font.Assign(Form1.Font);
   Result:=ShowModal;
 finally
   Free;
 end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.051 c