初来的,打个招呼

[wt_yxs]

在一个没有一点人气的XX论坛呆了几大个月,心里那个悔啊,记得最开始随便选论坛的时候也来个这里,可不知为什么,那个慢啊!
这次一定在这里扎下了.

我是新手一个,问一个小问题:我想用复选框表示出文本框内字体是否是粗体应该怎么做?
我当前是用最笨的方法应付的:恁感觉就不对
if (ActiveEdit as TEdit).Font.Style=[fsbold,fsitalic] then
begin
chkBold.Checked :=True;
chkItalic.Checked:=True;
end;
if (ActiveEdit as TEdit).Font.Style=[fsbold] then
begin
chkBold.Checked :=True;
chkItalic.Checked:=False;
end;
if (ActiveEdit as TEdit).Font.Style=[fsitalic] then
begin
chkBold.Checked :=False;
chkItalic.Checked:=True;
end;
if (ActiveEdit as TEdit).Font.Style=[] then
begin
chkBold.Checked :=False;
chkItalic.Checked:=False;
end;

[yonger22]

一起学习

[luxuewei5214]

欢迎噢

[hsmserver]

可以这么写

[voyan]

var
  fs:TFontStyles;
begin
 fs:=(ActiveEdit as TEdit).Font.Style;

 if fsbold in fs  then
 begin
   chkBold.Checked:=true
 end;

 if fsItalic in fs  then
 begin
   chkItalic.Checked:=true
 end ;

[voyan]

var
  fs:TFontStyles;
begin
 fs:=(ActiveEdit as TEdit).Font.Style;

 if fsbold in fs  then
   chkBold.Checked:=true
 else
   chkBold.Checked:=false;

 if fsItalic in fs  then
   chkItalic.Checked:=true
 else
   chkItalic.Checked:=false;