如何修改字体？(200分)

D

DelphiUser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #1

各位大虾：请问如何修改InforPower的TwwLocateDialog,TwwSearchDialog,
TwwFilterDialog, TwwLookupDialog中的字体，还有TwwRecordViewDialog的两个按钮的字体。

 

D

DelphiUser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #2

<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=164415" target="_blank">这里有200分</a>
<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=163766" target="_blank">这里还有200分</a>

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #3

var lf:tlogfont;
tf:tfont;
begin
tf:=tfont.Create;
tf.Assign(button1.font);
getobject(tf.handle,sizeof(lf),@lf);
lf.lfEscapement:=450;
lf.lfOrientation:=450;
tf.Handle:=createfontindirect(lf);
button1.parentfont:=false;
button1.Font.Assign(tf);
tf.free;
end;

 

H

Hexi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #4

wwLocateDialog1.Form.Font.Name:='宋体';
wwLocateDialog1.Form.Font.Size:=11;

 

H

Hexi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #5

在OnInitDialog中添加上面的代码。

 

D

DelphiUser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #6

多谢

 

D

DelphiUser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #7

多人接受答案了。