如何重复按钮的过程

时间:2014-01-13 14:48:30

标签: delphi pascal lazarus fpc

我为任务1和任务2开发了两个按钮的两个程序。你知道如何创建新按钮,它可以重复前两个按钮的程序,以指定的次数执行任务1 + 2吗? / p>

1 个答案:

答案 0 :(得分:2)

将任务提取为单独的方法:

procedure TForm1.DoTask1;
begin
  ....
end;

procedure TForm1.DoTask2;
begin
  ....
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoTask1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DoTask2;
end;

然后使用OnClick处理程序添加一个新按钮,如下所示:

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to N do
  begin
    DoTask1;
    DoTask2;
  end;
end;