如题,请给出完整代码,小弟新手,书上说得不详细!代码: 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;
{ 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;
begin
ButtonlClick(nil);
end;
这样的问题真是。
错在这个NoSender函数无人调用。没触发怎么使用它呢。
...
private
procedure NoSender;
public
...
end;