多线程中postmessage，出现无效句柄的错误

原因：

delphi

Form

procedure TForm2.FormCreate(Sender: TObject);

begin

 // 如果在多线程中通过postmessage,  回调 Show 方法会出现无效句柄的错误

  Self.FormStyle := fsStayOnTop;   

  Self.BorderStyle := bsNone;

end;

解决方法

procedure WM_Test1(var msg: Tmessage); message WM_Test1;

begin

  Self.FormStyle := fsStayOnTop;   

  Self.BorderStyle := bsNone;

  Show;  

end;