كيف نضع نص متحرك text مثل الاعلان داخل edt

[S.FATEH]

لاضهار الكتابة بشكل متقطع انسخ الكود على Form1 و اضف label فارغة

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    i: Integer;
    procedure Timing(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ExtCtrls;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Timer: TTimer;
begin
  i := 0;
  Label1.Caption := EmptyStr;
  Timer := TTimer.Create(Self);
  Timer.Interval := 100;
  Timer.OnTimer  := Timing;
end;

procedure TForm1.Timing(Sender: TObject);
var
  s: string;
begin
  s := 'Delphi4Arab|S.FATEH';
  Label1.Caption := Label1.Caption + s[i];
  Inc(i);
  if Length(Label1.Caption)-1 = Length(s) then
  begin
    i := 0;
    Label1.Caption := '';
  end;

end;

end.