Question

delphi 创建线程的问题 代码报错

function TForm1.MyThreadFun(p: Pointer): Integer; stdcall;
var
i: Integer;
pt2: TPoint; {因为指针参数给的点随时都在变, 需用线程的局部变量存起来}
begin
try
pt2 := PPoint(p)^; {转换}
for i := 0 to 100000 do
begin
with Form1.Canvas do begin
Lock;
TextOut(pt2.X, pt2.Y, IntToStr(i));
Unlock;
end;
end;
except
on e:Exception do
begin
ShowMessage(e.Message);
end;
end;

Result := 0;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
ID: DWORD;
begin
pt := Point(X, Y);
CreateThread(nil, 0, @TForm1.MyThreadFun, @pt, 0, ID);
end;

Answer 1

MyThreadFunc用一般的成员函数是不行的，改成class方法即可，相当于静态方法