delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

إقتباس :ممكن رابط الموضوع أخي kachwahed ؟.

رابط؟
ألم تلاحظ ذلك عندما تقوم بإنشاء Thread جديد من خلال القائمة File -> New -> Object Thread
تضاف تلك الأسطر مباشرة بعد implementation، وفي Delphi 2010 أصبحت (الكود بأكمله):

كود :
unit Unit1;

interface

uses
  Classes;

type
  TMyThread = class(TThread)
  private
    { Déclarations privées }
  protected
    procedure Execute; override;
  end;

implementation
[COLOR="SeaGreen"]
{ Important : les méthodes et propriétés des objets de la VCL peuvent uniquement
  être utilisées dans une méthode appelée en utilisant Synchronize, comme :

      Synchronize(UpdateCaption);

  où UpdateCaption serait de la forme

    procedure TMyThread.UpdateCaption;
    begin
      Form1.Caption := 'Mis à jour dans le thread';
    end;

    or

    Synchronize(
      procedure
      begin
        Form1.Caption := 'Mis à jour dans le thread via une méthode anonyme'
      end
      )
    );

  où une méthode anonyme est passée.

  De la même façon, le développeur peut appeler la méthode Queue avec des paramètres similaires
  à ci-dessus, au lieu de passer une autre classe TThread en tant que premier paramètre, en plaçant
  le thread appelant dans une file d'attente avec l'autre thread.
    
}
[/COLOR]
{ TMyThread }

procedure TMyThread.Execute;
begin
  { Placez le code du thread ici }
end;

end.

تحياتي أخي TF6M Big Grin

kachwahed :oops: , خليها رابط أحسن ! مشكوور [صورة: icon10.gif]

الصفحات : 1 2