+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم بتاثير الماوس للقوائم (/showthread.php?tid=226)
كيف اقوم بتاثير الماوس للقوائم - SALAH - 25-05-2008
كيف لي بالقيام بهذه العملية
اذا مررت الماوس على قائمة يخرج محتواها
مثلما هو موجود في هذا الموقع
http://www.toshiba.fr/
اذا مررنا الماوس على support تنزل قائمة الاختيارات
كيف اقوم بتاثير الماوس للقوائم - bilgads - 25-05-2008
يمكنك ذلك بكتابة كود إخراج المحتوى في الحدث OnMouseMove
كيف اقوم بتاثير الماوس للقوائم - merouane - 25-05-2008
أخي bilgads
مع احترامي ، هل للمكون MainMenu حدث OnMouseMove ؟؟
تأكد أخي قبل الإجابة
كيف اقوم بتاثير الماوس للقوائم - SALAH - 25-05-2008
نعم لا يوجد له الحدث OnMouseMove
كيف اقوم بتاثير الماوس للقوائم - bilgads - 25-05-2008
أخي مروان ان لا أقصد المكون MainMenu
و لكن هناك مكونات أخرى لها الحدث OnMouseMove
كيف اقوم بتاثير الماوس للقوائم - merouane - 25-05-2008
أذكرها من فضلك لتعم الفائدة
وحتى تكون إجابتك كاملة ومفيدة
كيف اقوم بتاثير الماوس للقوائم - kachwahed - 04-01-2009
ضع مكون TLabel واكتب في حدث OnMouseMouve هذه الشيفره:
كود :
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var Pt: TPoint;
begin
GetCursorPos(Pt);
PopupMenu1.Popup(Pt.X,Pt.Y);
end;