怎样调用事件?例如一个按钮去调用另一个按钮的时间
事例程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='9999999';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(Sender);//这是调用按钮1的事件
end;
怎样调用事件?例如一个按钮去调用另一个按钮的时间
事例程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='9999999';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(Sender);//这是调用按钮1的事件
end;