unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function MyFun(p: Pointer): Integer; stdcall;
var
i: Integer;
begin
for i := Integer(p^) to 500000 do // 由于 p 是指针,那么这里要的是数值,即 p^ 这个即可,然后再进行数据类型强制转化 Integer 即可
begin
Form1.Canvas.Lock;
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
end;
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
ID: THandle;
begin
// MyMethod();
i:=1000; //传入的循环起始参数 ,注意这个参数 要求是 Pointer指针 模式
CreateThread(nil, 0, @MyFun, @i, 0, ID); //@ 符号是取整数变量i的地址 ,这个是函数参数的传递方式,默认就是 指针模式传递的。
end;
function MyFun1(p: Pointer): Integer; stdcall;
var
i: Integer;
begin
for i := Integer(p^) to 500000 do // 由于 p 是指针,那么这里要的是数值,即 p^ 这个即可,然后再进行数据类型强制转化 Integer 即可
begin
Form1.Canvas.Lock;
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
Application.ProcessMessages; //加入这句 让我们拖动窗体的时候他就会 让循环停止 ,从而让UI界面不卡
end;
Result := 0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
i:=1000;
MyFun1( @i);
end;
end.
代码很简单,