我想让一个函数不要立即返回，在执行完一些操作后再返回

Question

我想让一个函数不要立即返回，在执行完一些操作后再返回
比如我定义一个函数  newshape();
我然后点鼠标画图, 双击之后表示绘制完成。这时候才newshape函数返回刚才绘制的图形的对象。
这种怎么弄。

Answer 1

1、定义一delphi函数；
2、由一般代码鼠标画图, 双击之后表示绘制完成。在双击的鼠标事件中，执行（调用）该函数。
3、得到函数值。

Answer 2

定义一个全局变量
var
  true1:boolean=false;
在你的函数中加入
    while true1=false  do
      application.ProcessMessages;
什么时候要允许函数执行了则设置
true1:=true;

Answer 3

定义一个全局变量
var
  true1:boolean=false;
在你的函数中加入
  while true1=false do
  application.ProcessMessages;
什么时候要允许函数执行了则设置
true1:=true;
这样我发现有个问题就是窗口不能关闭了。