[新手问题]调用问题。 ( 积分: 30 )

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if (Sender = RadioButton1) then
Form1.Color:=clBlack
else
if (Sender = RadioButton2) then
Form1.Color:= clMaroon;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Form1.RadioButton1Click(Sender: TObject);
end;

请问下RadioButton2Click怎样调用RadioButton1Click1的事件。

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
RadioButton1Click(Sender);
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if (Sender = RadioButton1) then
Form1.Color:=clBlack
else
if (Sender = RadioButton2) then
Form1.Color:= clMaroon;
end;

RadioButton1和RadioButton2的OnClick事件都是赋为RadioButton1Click

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if (Sender = RadioButton1) then
Form1.Color:=clBlack
else
if (Sender = RadioButton2) then
Form1.Color:= clMaroon;
end;

RadioButton1和RadioButton2的OnClick事件都是赋为RadioButton1Click

谢谢各位。