استفاده از ترد در دلفی

ابتدا باید ترد تعریف شود به صورت زیر

Type

   SefareshThread = Class(TThread)

//      procedure openquery();

تمامی توابع و پروسیژرها را در اینجا تعریف کنید

    protected

      procedure Execute; override;

end;

یک تایمر روی صفحه میتوان گذاشت برای فراخوانی ترد و کدهای زیر برای انجام عملیات مورد نظر 

procedure SefareshThread.Execute;

begin

  inherited;

  KalaOrderList_FRM.Timer1.Enabled:= false;

  KalaOrderList_FRM.sql3.DisableControls;

  KalaOrderList_FRM.sql2AfterScroll(nil);

  KalaOrderList_FRM.sql3.EnableControls;

end;

procedure SefareshThread.openquery;

begin

   Synchronize(openquery);

end;

procedure TKalaOrderList_FRM.Timer1Timer(Sender: TObject);

var

 T : SefareshThread;

begin

 T := SefareshThread.Create(True);

 T.FreeOnTerminate := True;

 T.Resume;

end;

و در مکان مورد نظر تایمر را فعال کنید

  Timer1.Enabled:=true;