如题,请给出完整代码,小弟新手,书上说得不详细!代码: private
    { Private declarations }
 NoSender;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Color:=clRed;
end;
procedure TForm1.NoSender;
begin
 ButtonlClick(nil);
end;