TComboBox / TListBox のフォントサイズを変えるには？
TComboBox / TListBox には Font プロパティがありませんが、 [項目エディタ] で作れるアイテム (TListBoxItem) は Font プロパティを持っています。これを変更することにより、フォントサイズを変更することができます。
...ただ、これだと設計時に作ったアイテムの分しかフォントサイズを変更できません。動的に追加したアイテムのフォントサイズを変更したい場合には...
// TListBox
var
i: Integer;
begin
for i:=1 to 50 do
ListBox1.Items.Add(IntToStr(i));
for i:=0 to ListBox1.Items.Count-1 do
with ListBox1.ListItems[i].Font do
begin
Family := 'Tahoma';
Size := 16;
end;
end;
|
// TComboBox
var
i: Integer;
begin
for i:=1 to 50 do
ComboBox1.Items.Add(IntToStr(i));
for i:=0 to ComboBox1.Items.Count-1 do
with ComboBox1.ListItems[i].Font do
begin
Family := 'Tahoma';
Size := 16;
end;
end;
|
このようにコードで指定します。或いは Scaled プロパティで拡大するか、です。