Function Animate

[paix144]

السلام عليكم
procedure AnimatedWrite(aStr: string; aStrings: TStrings; const aIndex: LongInt=-1; const aSpeed: LongWord=80; aStopPtr: PBoolean=nil);
var
N, IDX : LongInt;
S : String;
begin
if aIndex = -1 then
Idx := aStrings.Add('')
else
Idx := aIndex;

for N := 1 to length(aStr) do
begin
S := Copy(aStr, 1, N);
aStrings[idx] := S + '.';
Application.ProcessMessages;
Sleep(aSpeed);
aStrings[idx] := S;
if aStopPtr <> nil then
if aStopPtr^ then
begin
aStrings[idx] := aStr;
exit;
end;
end;
end;

[قديم الشوق]

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

ممكن مثال حولت معه لاكن فيه خطأ

شكراً

[STRELiTZIA]

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

ممكن مثال حولت معه لاكن فيه خطأ

شكراً

السلام عليكم و رحمة الله
حاول ادخال البرامترات بهذه الطريقة :

procedure TMain.AnimateBtnClick(Sender: TObject);
begin
AnimatedWrite('Welcome to Delphi4Arab forum', TargetMmo.Lines, -1, 80, nil);
end;

- حدث OnClick للاستدعاء الدالة.
- مكون Memo لاستقبال النص المراد تحريكه.

يمكنك ايضا التعديل على الدالة الأصلية اذا اردت التعامل مع Caption او Text مكان Strings

[قديم الشوق]

جزااك الله خير ممكن تعطيني الكود بالصيغه العامه
وماهي وجزااك الله خير مازال هناك خطأ في الكود

procedure tform1.button1click(sender: Tobject);
begin
animatedwrite('welcome to delphi4arab forum', memo1.lines, -1, 80, nil);
end;

[paix144]

شوف هذا السورس أخي
بالتوفيق إن شاء الله