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