Function Animate

[STRELiTZIA]

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

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

شكراً

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

PHP كود :

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


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

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