RadioButton示例
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; Label1: TLabel; procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure RadioButton3Click(Sender: TObject); procedure RadioButton4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RadioButton1Click(Sender: TObject); begin label1.Font.Name := '宋体'; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin label1.Font.Name := '隶书'; end; procedure TForm1.RadioButton3Click(Sender: TObject); begin label1.Font.Name := '黑体'; end; procedure TForm1.RadioButton4Click(Sender: TObject); begin label1.Font.Name := '楷体'; end; end.