多线程编程(4)-从CreateThread说起[续二]

function CreateThread(
　lpThreadAttributes: Pointer;
　dwStackSize: DWORD;
　lpStartAddress: TFNThreadStartRoutine;
　lpParameter: Pointer;　{入口函数的参数}
　dwCreationFlags: DWORD;
　var lpThreadId: DWORD
): THandle; stdcall;

线程入口函数的参数是个无类型指针(Pointer), 用它可以指定任何数据; 本例是把鼠标点击窗体的坐标传递给线程的入口函数, 每次点击窗体都会创建一个线程.

运行效果图:

代码文件:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs;
type
　TForm1 = class(TForm)
　　procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
　　　Shift: TShiftState; X, Y: Integer);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
var
　pt: TPoint; {这个坐标点将会已指针的方式传递给线程, 它应该是全局的}
function MyThreadFun(p: Pointer): Integer; stdcall;
var
　i: Integer;
　pt2: TPoint;　　　 {因为指针参数给的点随时都在变, 需用线程的局部变量存起来}
begin
　pt2 := PPoint(p)^; {转换}
　for i := 0 to 1000000 do
　begin
　　with Form1.Canvas do begin
　　　Lock;
　　　TextOut(pt2.X, pt2.Y, IntToStr(i));
　　　Unlock;
　　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, @MyThreadFun, @pt, 0, ID);
　{下面这种写法更好理解, 其实不必, 因为 PPoint 会自动转换为 Pointer 的}
　//CreateThread(nil, 0, @MyThreadFun, Pointer(@pt), 0, ID);
end;
end.