5,392
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
blackfish 2001-10-29
- 打赏
- 举报
谢谢各位的参与
heartbeat_hb 2001-10-27
- 打赏
- 举报
参考参考，共同提高
heartbeat_hb 2001-10-27
- 打赏
- 举报
再用这个函数 GetSystemMetrics 看看
heartbeat_hb 2001-10-27
- 打赏
- 举报
你真的运气好！！！给你个例子:
我的这个程序(setup.exe)中的“可选字体”用到这个方法, 请看：
http://202.103.69.33/cnshare/showsoft.php3?id=2586
下面是源码：
...................
var
i: integer;
begin
for i := 0 to Screen.Fonts.Count-1 do
ComboBox1.Items.Add(Screen.Fonts.Strings[i]); // 请添加一个 ComboBox1
ComboBox1.ItemIndex := 0;
end;
...................
我的这个程序(setup.exe)中的“可选字体”用到这个方法, 请看：
http://202.103.69.33/cnshare/showsoft.php3?id=2586
下面是源码：
...................
var
i: integer;
begin
for i := 0 to Screen.Fonts.Count-1 do
ComboBox1.Items.Add(Screen.Fonts.Strings[i]); // 请添加一个 ComboBox1
ComboBox1.ItemIndex := 0;
end;
...................
