请教各位！有没有非模式的消息框，既 MessageBox 之类。

Question

有没有这样的消息框：弹出后关闭前，程序可以继续运行，用户可以操作界面。

Answer 1

自已写一个，弹出时用 show,不要用showmodal就行了

Answer 2

嗯，自己写个窗体，用show，应该不用给源码了吧？

Answer 3

int MessageBox(    HWND hWnd, // handle of owner window
    LPCTSTR lpText, // address of text in message box
    LPCTSTR lpCaption, // address of title of message box  
    UINT uType  // style of message box
   );HWND置0即可， MessageBox(0,.....)

Answer 4

MessageBox()HWND:=0  但它能跑到生成窗体的后面。procedure TForm1.Button1Click(Sender: TObject);
var
  TemForm:TForm;
begin
  TemForm:=TForm.CreateParented(Self.Handle);
  TemForm.Show;
end;

Answer 5

TnonmodleDialog=class(Tform)
....
end;Tnonmodle.close(...Action: ...);
begin
  Action:=cafree;
end;
Tnonmodel.create(Application.mainform).show;

Answer 6

TnonmodleDialog=class(Tform)
....
end;TnonmodleDialog.close(...Action: ...);
begin
Action:=cafree;
end;
TnonmodleDialog.create(Application.mainform).show;