如何让程序等待一个事件的触发

[纯净水o]

procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k:Integer;
ar:array of Integer;
begin
memo1.Text:='请输入开辟空间大小';
//********************这里等待按下button在继续运行接下来的程序
i:=StrToInt(edit1.Text);
SetLength(ar,i);
end;


应该如何做呢？

[hongss]

“等待按下button”，这个Button里加个Flag,初始False，按下Button变True；

在你需要的这个地方加个Timer，
你需要的“接下来的程序”，写在Timer里，判断Flag，若Flag为True执行你“接下来的程序”

[风之谷]

写死循环 用application.handlemessage;获取信息

while true do
begin
if xxxx then
breakl;
application.handlemessage;
end;

不影响程序运行 但是如果里面牵扯到对象的话，可能在程序关闭时循环还没结束，仍然要调用对象，可能会报错，这块小心点

[金卯刀]

var
  NewString : string;//接收值...
  ...
begin
   ...
  if InputQuery('Input Box', '请输入开辟空间大小', NewString) then
    ...
    

[纯净水o]

楼上的方法不错

[ffwin]

要是我,我就这么做
我设一变量,a:boolean

把 继续运行接下来的程序 做成一个 procedure

程序在按钮部分给 逻辑变量赋值,是否按下 决定 a 的真假


按照真或假的情况再运行 procedure 里的部分

这样CPU的效率也高一些,不知是否可行