线程有关问题

线程问题
procedure   TForm1.Button1Click(Sender:   TObject);
var
ThreadID:DWORD;
hThread:Thandle;
begin
hThread:=CreateThread(nil,0,@settext,nil,0,ThreadID);
end;


procedure   TForm1.settext;
begin
edit1.Text   := '测试 ';
end;

Error:Variable   required
初学线程,多多指教

[解决办法]
类的方法不能直接用作CreateThread的第三个参数。
如果是初学线程编程，建议使用经Delphi封装过的TThread类来实现。
[解决办法]
看demo，用TThread类
[解决办法]
unit Unit1;

interface

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

type
TMyThread = class(TThread)
private
FIndex : Integer;
FMemo : TMemo;
procedure AddMemoLine;
protected
procedure Execute; override;
public
constructor Create(Suspended: Boolean; iIndex: Integer; AMemo: TMemo);
end;

TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
iIndex : Integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TMyThread.Create(Suspended: Boolean; iIndex: Integer; AMemo: TMemo);
begin
inherited Create(Suspended);
FIndex := iIndex;
FMemo := AMemo;
end;

procedure TMyThread.AddMemoLine;
begin
FMemo.Lines.Add(Format( 'Thread %d ', [FIndex]));
end;

procedure TMyThread.Execute;
begin
while not Terminated do
begin
Synchronize (AddMemoLine);
Sleep(1000);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
iIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TMyThread.Create(True, iIndex, Memo1) do
begin
FreeOnTerminate := True;
Resume;
end;
inc(iIndex);
end;

end.

[解决办法]
procedure MyThread(p: Pointer); stdcall;
begin
//...
end;

var
h, thid: Cardinal;
h := CreateThread(nil, 0, @MyThread, nil, 0, thid);
[解决办法]
用delphi的TThread派生.

菜单: File - New, Thread Object