+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ (/showthread.php?tid=7333)
كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ - jeanjamil - 02-12-2015
السلام عليكم
كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ
وعند مرور الفأرة فوقه والتأكد انه 'tshape'
انفذ امرا ما بغض النظر عن اسم الshape
اي فقط اذا كان tshape
RE: كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ - Samer Assil - 02-12-2015
اشتق كلاس جديد من TShape . وعدل اجراء MouseMove .
اعمل Create من الكلاس الجديد .
فقط
RE: كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ - jeanjamil - 03-12-2015
شكرا اخي ولكن هل من مثال بسيط لو امكن
RE: كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ - S.FATEH - 04-12-2015
السلام عليكم
احيلك الى الرد الامر مشابه
http://delphi4arab.net/forum/showthread.php?tid=6032&pid=30701#pid30701
كود :
private
procedure ShapeMouseEnter(Sender: TObject);كود :
uses Vcl.ExtCtrls;كود :
procedure TForm1.Button1Click(Sender: TObject);
var
Shape: TShape;
begin
Shape := TShape.Create(self);
Shape.Parent := self;
Shape.OnMouseEnter := ShapeMouseEnter;
Shape.Top := Random(Self.Height);
Shape.Left := Random(Self.Width);
end;
procedure TForm1.ShapeMouseEnter(Sender: TObject);
begin
ShowMessage(TShape(Sender).Name);
end;RE: كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ - jeanjamil - 19-12-2015
هل بالامكان ايضا عمل مثل timeline
وهو عبارة عن بانل رفيع متحرك
وعند وصوله الى اي tshape
ينفذ امرا كما onmouse...