我有好几个RadioButton，当RadioButton单击事件发生时，他们执行的代码都是一样的，我不想重复写代码，怎么能这些RadioButton都执行相同的代码。

參考看看     

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  If Sender = RadioButton1 Then Begin
    ShowMessage('RadioButton1');
  End Else If Sender = RadioButton2 Then Begin
    ShowMessage('RadioButton2');
  End Else If Sender = RadioButton3 Then Begin
    ShowMessage('RadioButton3');
  End;    end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  RadioButton1.OnClick:= RadioButton1Click ;
  RadioButton2.OnClick:= RadioButton1Click ;
  RadioButton3.OnClick:= RadioButton1Click ;
  {或者在設計時期 在個別RadioButton的OnClick 屬性中選RadioButton1Click}
end;    end.

您好： 您的RadioButton其中一ㄍevents寫上程式碼 其餘的事件，皆選有寫程式碼的那ㄍ事件 如RadioButton1.onclick 則RadioButton2.onclick選RadioButton1.onclick RadioButton3.onclick選RadioButton1.onclick .... ~~應無所住而生其心~~