السلام عليكم
كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ
وعند مرور الفأرة فوقه والتأكد انه 'tshape'
انفذ امرا ما بغض النظر عن اسم الshape
اي فقط اذا كان tshape
اشتق كلاس جديد من TShape . وعدل اجراء MouseMove .
اعمل Create من الكلاس الجديد .
فقط
شكرا اخي ولكن هل من مثال بسيط لو امكن
السلام عليكم
احيلك الى الرد الامر مشابه
http://delphi4arab.net/forum/showthread....1#pid30701
كود :
private
procedure ShapeMouseEnter(Sender: TObject);
كود :
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;
هل بالامكان ايضا عمل مثل timeline
وهو عبارة عن بانل رفيع متحرك
وعند وصوله الى اي tshape
ينفذ امرا كما onmouse...