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]

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

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

شكراً

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

PHP كود :

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]

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