如何重複一個按鈕的過程

Question

我已經開發了兩個按鈕的任務1和任務2的兩個過程。你知道如何創建新的按鈕，它可以重複前兩個按鈕的過程來執行任務1 + 2分配次數？

Answer 1

提取任務分解成不同的方法：

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;