绝对小问题。

[icecsdn]

我仿照addobject的帮助写了个小程序，是想让Edit1的字体跟着变化，为什么这句话出错？
with ComboBox1 do
Edit1.Font.Style := TFontStyles(Items.Objects[ItemIndex]);

[icecsdn]

还有Include是什么意思呢？

[IORILI]

问题不小吗

[IORILI]

在你的formcreate里写
ComboBox1.Items.AddObject('´ÖÌå', TObject(fsBold));
ComboBox1.Items.AddObject('бÌå', TObject(fsItalic));
ComboBox1.Items.AddObject('Ï»®Ïß', TObject(fsUnderline));
ComboBox1.Items.AddObject('ÖлªÏß', TObject(fsStrikeOut));

在你的comboboxchange事件里写
var
aa: TFontStyles;
begin
aa := Edit1.Font.Style;
with ComboBox1 do
begin
Include(aa, TFontStyle(Items.Objects[ItemIndex]));
Edit1.Font.Style := aa;
end;

[steventone]

类型不符,不能相互赋值!

[icecsdn]

还有Include是什么意思呢？

[icecsdn]

UP

[noil0125]

with combobox1 do
case combobox1.ItemIndex of
0: Edit1.Font.Style :=[fsBold];
1: Edit1.Font.Style :=[fsItalic];
2: Edit1.Font.Style :=[fsUnderline];
3: Edit1.Font.Style :=[fsStrikeOut];
end;

[佣工7001]

阿亚，迟到了

[icecsdn]

to :noil0125(珏心) 不是这样的。我是参照ComboBox1的AddObject方法把字体的那些属性写进去了，
ComboBox1.Items.AddObject('´ÖÌå', TObject(fsBold));
ComboBox1.Items.AddObject('бÌå', TObject(fsItalic));
ComboBox1.Items.AddObject('Ï»®Ïß', TObject(fsUnderline));
ComboBox1.Items.AddObject('ÖлªÏß', TObject(fsStrikeOut));
关键是我下面这句话编译不过去，写在Combobox的OnChange里
with ComboBox1 do
Edit1.Font.Style := TFontStyles(Items.Objects[ItemIndex]);

[hmzgz81]

报什么错？能贴出来吗？

[icecsdn]

invalid typecast

[huojiehai]

应该这样改：
var
aa: TFontStyles;
begin
.........
aa := Edit1.Font.Style;
with ComboBox1 do
Include(aa, TFontStyle(Items.Objects[ItemIndex]));
Edit1.Font.Style := aa;
end;

[icecsdn]

to :huojiehai(海天子) 我是按照combobox的addobject方法写的（delphi帮助里面的），你看了帮助的那个例子就知道我的意思了，我还想知道，我几乎就是照扒，为什么编译不行？

[IORILI]

include方法你可以看看帮助