كيف لي بالقيام بهذه العملية
اذا مررت الماوس على قائمة يخرج محتواها
مثلما هو موجود في هذا الموقع
http://www.toshiba.fr/
اذا مررنا الماوس على support تنزل قائمة الاختيارات
يمكنك ذلك بكتابة كود إخراج المحتوى في الحدث OnMouseMove
أخي bilgads
مع احترامي ، هل للمكون MainMenu حدث OnMouseMove ؟؟
تأكد أخي قبل الإجابة
نعم لا يوجد له الحدث OnMouseMove
أخي مروان ان لا أقصد المكون MainMenu
و لكن هناك مكونات أخرى لها الحدث OnMouseMove
أذكرها من فضلك لتعم الفائدة
وحتى تكون إجابتك كاملة ومفيدة
ضع مكون 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;