Question

如何在Delphi中用CheckBox控件对Label控件中文字字形进行设置

如何在Delphi中用CheckBox控件对Label控件中文字字形进行设置,如果CheckBox2的Checked属性为Ture则Label中的文字设为斜体，否则不为斜体。

Answer 1

if checkbox1.Checked then
label1.Font.Style := [fsBold]
else
label1.Font.Style :=[];

if checkbox2.Checked then
label1.Font.Style := [fsitalic]
else
label1.Font.Style :=[];

Answer 2

var
fs: TFontStyle;
begin
if TWinControl(Sender).Name = 'CheckBox1' then
fs := fsBold
else
fs := fsItalic;

if TCheckBox(Sender).Checked then
Self.Button1.Font.Style :=
Self.Button1.Font.Style + [fs]
else
Self.Button1.Font.Style :=
Self.Button1.Font.Style - [fs];