function textxcfunc(p:pointer):longint;stdcall; begin while form1.Edit1.Text<>TimeToStr(Time) do begin form1.Label2.Caption:=TimeToStr(Time); end; end; {function textxcfunc(p:pointer):longint;stdcall; var i:integer; DC:HDC; S:string; begin DC:=getdc(form1.Handle); for i:=0 to 1000000 do begin S:=inttostr(i); textout(DC,10,10,Pchar(S),length(S)); end; releaseDC(form1.Handle,DC); end; } procedure TForm1.usedthreadClick(Sender: TObject); var hThread:thandle; threadid:dword; begin hthread:=createthread(nil,0,@textxcfunc,nil,0,threadid); if hthread= 0 then messagebox(Handle,'didn`t create a thread',nil,MB_OK); end;
procedure TForm1.nousedthreadClick(Sender: TObject); begin textxcfunc(nil); end;
procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled:=true;
end;
procedure TForm1.BitBtn1Click(Sender: TObject); begin textxcfunc(nil); end;
procedure TForm1.Timer1Timer(Sender: TObject); begin form1.Label1.Caption:=TimeToStr(Time); if form1.Edit1.Text=TimeToStr(Time) then begin showmessage('ddd'); timer1.Enabled:=false; end; end;