Click是事件, 发生了就结束了..
所以..
private
{ Private declarations }
flg: integer;
public
{ Public declarations }
...
procedure Form1.Button1Click(Sender: TObject);
begin
...
flg := 1;
end;
procedure Form1.Button2Click(Sender: TObject);
begin
if flg = 1 then
begin
...
end;
end;
按照你的说法,建议使用全局变量,在按钮1事件中更改该变量状态,按钮2事件中即可根据该变量判断是否按下。