一个关于线程的问题。

[lazecat]

怎么样可以将一个窗体放入线程？最好有代码。谢谢啦。

[lazecat]

没有人关注一下吗？

[lzzqqq]

创建一个工程，有两个窗体，是form1,form2
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

function ThreadFunc(Ptr:Pointer):LongInt;stdcall;
begin
form2.show;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
thread1:thandle;
threadid:dword;
begin
thread1:=createthread(nil,0,@threadfunc,nil,0,threadid);
end;

end.

[lazecat]

我是这样做的啊。可是当在我创建的时候总是出错！