在线程函数中难道不能使用Messagebox吗？请指教哈……………………………………！！！！

Question

//我的线程函数如下：
procedure TCopyThread.Execute;begin    Messagebox('OK', '提示', MB_OK + MB_ICONWARNING)end;然后在主窗口中的一个Button函数中：
  thread := TCopyThread.Create(false);为什么不能出现对话框呢？

Answer 1

//我测试了没什么问题啊?
//其他情况要考虑线程同步的问题
type
  TCopyThread = class(TThread)
  private
    procedure Method;
  protected
    procedure Execute; override;
  end;procedure TCopyThread.Execute;
begin
  Synchronize(Method);
end;procedure TCopyThread.Method;
begin
  Messagebox(0, 'OK', '提示', MB_OK + MB_ICONWARNING)
end;