كيف اقوم بتاثير الماوس للقوائم [الأرشيف]

مشاهدة النسخة كاملة : كيف اقوم بتاثير الماوس للقوائم

SALAH

25-05-2008, 10:09 AM

كيف لي بالقيام بهذه العملية
اذا مررت الماوس على قائمة يخرج محتواها
مثلما هو موجود في هذا الموقع
http://www.toshiba.fr/
اذا مررنا الماوس على support تنزل قائمة الاختيارات

bilgads

25-05-2008, 10:28 AM

يمكنك ذلك بكتابة كود إخراج المحتوى في الحدث OnMouseMove

merouane

25-05-2008, 10:32 AM

أخي bilgads

مع احترامي ، هل للمكون MainMenu حدث OnMouseMove ؟؟

تأكد أخي قبل الإجابة

SALAH

25-05-2008, 10:38 AM

نعم لا يوجد له الحدث OnMouseMove

bilgads

25-05-2008, 10:38 AM

أخي مروان ان لا أقصد المكون MainMenu
و لكن هناك مكونات أخرى لها الحدث OnMouseMove

merouane

25-05-2008, 10:43 AM

أذكرها من فضلك لتعم الفائدة

وحتى تكون إجابتك كاملة ومفيدة

kachwahed

04-01-2009, 04:09 PM

ضع مكون 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;