كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ
|
كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ
|
02-12-2015, 08:38 AM
السلام عليكم
كيفية انشاء عدد لا متناهي من 'Tshape' وقت التنفيذ وعند مرور الفأرة فوقه والتأكد انه 'tshape' انفذ امرا ما بغض النظر عن اسم الshape اي فقط اذا كان tshape
02-12-2015, 08:05 PM
اشتق كلاس جديد من TShape . وعدل اجراء MouseMove .
اعمل Create من الكلاس الجديد . فقط 
04-12-2015, 08:42 PM
السلام عليكم
احيلك الى الرد الامر مشابه http://delphi4arab.net/forum/showthread....1#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;
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج |
|
|
