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

كيف نضع نص متحرك text مثل الاعلان داخل edt - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نضع نص متحرك text مثل الاعلان داخل edt (/showthread.php?tid=3563)

كيف نضع نص متحرك text مثل الاعلان داخل edt - المحجوب - 03-11-2011

السلام عليكم

ماهو الكود الذي يقوم بهذا العمل

تحريك text مثل الاعلان داخل edt عن طريق التايمر
من اليسار الى اليمين ويرجع مرة اخرى النص من اليسار ( نص متحرك )

كيف نضع نص متحرك text مثل الاعلان داخل edt - لؤي - 03-11-2011

و عليكم السلام

أستخدمت مثال و لكن بـ Label أظنه أفضل من edit

كود :
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
      function droite (i:Integer):string;
      function gauche (i:Integer):string;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  v:Integer;
implementation


{$R *.dfm}

function tform1.droite (i:Integer):string;
begin
if Label1.Left < 350 then
label1.Left:=Label1.Left +5 else
v:=250;
end;
function tform1.gauche (i:Integer):string;
begin
if Label1.Left > 100 then
label1.Left:=Label1.Left -5 else
v:=200;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case v of
 200 : droite(200);
 250 : gauche(250);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  v:=200;
end;
end.

ما عليك إلا أن تضبط البارمتر من اليمين إلى اليسار
بالتوفيق

كيف نضع نص متحرك text مثل الاعلان داخل edt - لؤي - 03-11-2011

او إستعمال مكون Text Animator Component

كود :
http://www.delphiarea.com/downloads/?dl_id=7

بالتوفيق

كيف نضع نص متحرك text مثل الاعلان داخل edt - paix144 - 03-11-2011

السلام عليكم ورحمة الله
أنظر هذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=4486&highlight=label
بالتوفيق

كيف نضع نص متحرك text مثل الاعلان داخل edt - S.FATEH - 22-06-2013

السلام عليكم لم اجربها فكرة جميلة Cool

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 Timing1(Sender: TObject);
    procedure Timing2(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ExtCtrls;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Timer: TTimer;
begin
  i := 1;
  Timer          := TTimer.Create(Self);
  Timer.Interval := 10;
  Timer.OnTimer  := Timing1;
  // or Timer.OnTimer  := Timing2;
end;

procedure TForm1.Timing1(Sender: TObject);
begin
  if Label1.Left <> ClientWidth then Label1.Left := Label1.Left + 1 else
  Label1.Left := 0;
end;

procedure TForm1.Timing2(Sender: TObject);
begin
  if ((Label1.Left = ClientWidth) or (Label1.Left = 0))then i := -i;
  Label1.Left := Label1.Left + i;
end;

end. 

طريقة العرض الاولى عند الوصول الى الحافة تعود من الصفر
طريقة العرض الثانية عند الوصول الى الحافة تعود ادراجها

Label على form1

كيف نضع نص متحرك text مثل الاعلان داخل edt - S.FATEH - 22-06-2013

لاضهار الكتابة بشكل متقطع انسخ الكود على 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. 

كيف نضع نص متحرك text مثل الاعلان داخل edt - بن دهيبة - 22-06-2013

السلام عليكم ورحمة الله تعالى وبركاته

فى هذا الرابط تجد مثال فيه الكتابة تتحرك تكون في ملف نص كنت قد ادرجته من قبل

http://delphi4arab.net/forum/showthread.php?tid=7108

كيف نضع نص متحرك text مثل الاعلان داخل edt - DJAMELCOLLO - 23-06-2013

ضع لابل وافعل مالي.

كود :
repeat 
label1.left:=label1.left+1;
until
label1.left=form1.width+1;
label1.left:=0;
end;