Две процедуры от одной кнопки

Question

Мне было интересно, есть ли две функции для одной кнопки. Например, у меня есть stringgrid, в котором есть заказы, и с помощью кнопки я хочу суммировать все заказы, и с помощью той же кнопки я хочу вернуться в предыдущее состояние, когда заказы не суммировались.

if Sender = reduceOrderBTN then 
begin 
J:=1; 
reduceOrderBTN.Caption:= 'Show all'; 
qryReduceOrders.Close; 
qryReduceOrders.Open; 
end; 

advOrderGrid.RowCount:= qryReduceOrders.RecordCount + 1; 

while NOT qryReduceOrders.Eof do 
begin 

advOrderGrid.Cells[0, qryReduceOrders.RecNo] := IntToStr(qryReduceOrders.RecNo); 
advOrderGrid.Cells[1, qryReduceOrders.RecNo] := qryReduceOrdersProductName.AsString; 
advOrderGrid.Cells[2, qryReduceOrders.RecNo] := qryReduceOrdersSpecialWish.AsString; 
advOrderGrid.Cells[3, qryReduceOrders.RecNo] := qryReduceOrdersQuantity.AsString; 
advOrderGrid.Cells[4, qryReduceOrders.RecNo] := qryReduceOrdersprepTime.AsString; 
advOrderGrid.Repaint; 
qryReduceOrders.next; 

end; 
if (Sender = reduceOrderBTN) and (J = 1) then 
formShow(nil); 
//trying to get back to old state but this doesnt work 
end; 

Answer 1

Вы можете просто использовать свойство тега кнопки для отслеживания состояния.

If reduceOrderBTN.tag = 0 then begin 
    // Sum orders code here 
    reduceOrderBTN.tag := 1; 
end 
else begin 
    // Set Previous state code here 
    reduceOrderBTN.tag := 0; 
end; 

Answer 2

Возможно, наиболее читаемым способом является создание двух процедур TNotifyEvent.

procedure TMyForm.OnClickNormal(Sender: TObject); 
begin 
    DoNormalAction; 
    MyButton.Caption := 'Reverse Action'; 
    MyButton.OnClick := OnClickReverse; 
end; 

procedure TMyForm.OnClickReverse(Sender: TObject); 
begin 
    DoReverseAction; 
    MyButton.Caption := 'Normal Action'; 
    MyButton.OnClick := OnClickNormal; 
end; 

Затем вы устанавливаете действие по умолчанию и подпись в редакторе проекта.