کامپوننتی برای حرکت دادن متن

[mbr485]

با سلام
کامپوننتی را احتیاج دارم که بتوانم یک متن فارسی را درون یک باکس از سمت راست به چپ به حرکت در آورم و این کار بصورت یک تبلیغات حرکت کند
با تشکر

[hamide_kh]

سلام
در مجموعه کامپوننتهای jedi یه همچین چیزی وجود داره

[AliReza Vafakhah]

سلام
از اين كد استفاده كن . در ضمن در هنگام مقدار دهي به رشته يك فاصله در اول و آخر آن ايجاد كن .




unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,StrUtils;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
StrText:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
StrText:=' Hello Dear User '
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
StrText := AnsiMidStr(StrText, 2, Length(StrText ) - 2) + Leftstr(StrText , 2);
Caption:= Leftstr(StrText , 15) // Or Display In Edit1
end;
end.

[sara99]

سلام من این کد را نوشتم و اجرا می شه ولی متنی نمی بینم. فرم خالی می آید!!!!
قبلا با استفاده از یک Timer و یک Label در Timer کد زیر را نوشتم و Interval تایمر را نیز 60 کردم ولی وقتی متن حرکت می کند تا انتهای صفحه می رود و دیگر بر نمی گردد؟؟؟؟؟؟؟؟؟

procedure TForm1.Timer3Timer(Sender: TObject
Label3.Left:=Label3.Left+1

[yunes1370]

راستي من كامپونت يك ليبل متحرك دارم كه متن داخواه رامي تواند حركت كند بدون نوشتن كد اگه خواستي پيام بده تابرايت بگذارم

باتشكر:قهقهه:

[sara99]

راستي من كامپونت يك ليبل متحرك دارم كه متن داخواه رامي تواند حركت كند بدون نوشتن كد اگه خواستي پيام بده تابرايت بگذارم

باتشكر:قهقهه:

لطف کنید کامپونتی رو که گفتید را بگذارید.

[Hsimple11]

در کامپوننتهای سری LMD چنین چیزی وجود داره.

[skflower]

راستي من كامپونت يك ليبل متحرك دارم كه متن داخواه رامي تواند حركت كند بدون نوشتن كد اگه خواستي پيام بده تابرايت بگذارم


لطف کنید کامپونتی رو که گفتید را بگذارید.

دوستان عزیز. گذاشتن لینک دانلود کرک شده، خلاف قوانین وبسایت هستش. لطف کنید اگه فروشگاهی سراغ دارید که این کامپوننت رو میفروشه، به دوستان معرفی کنید.
با تشکر

[khorsandreza]

از کامپوننت Razi استفاده کن برای این کار ابزار خیلی جالبی دارد فابل نصبش 32 مگابایت