gpt4 book ai didi

delphi - 一键执行两个过程

转载 作者:行者123 更新时间:2023-12-03 19:07:26 27 4
gpt4 key购买 nike

我想知道一个按钮是否可以同时具有两个功能。
例如,我有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;

最佳答案

您可以简单地使用按钮的Tag属性来跟踪状态。

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;

关于delphi - 一键执行两个过程,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30618016/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com