المشاركات : 49
المواضيع 15
:
: 0
الإنتساب : May 2008
كيف لي بالقيام بهذه العملية
اذا مررت الماوس على قائمة يخرج محتواها
مثلما هو موجود في هذا الموقع
http://www.toshiba.fr/
اذا مررنا الماوس على support تنزل قائمة الاختيارات
المشاركات : 59
المواضيع 11
:
: 0
الإنتساب : Feb 2008
يمكنك ذلك بكتابة كود إخراج المحتوى في الحدث OnMouseMove
المشاركات : 334
المواضيع 83
:
: 17
الإنتساب : Feb 2008
أخي bilgads
مع احترامي ، هل للمكون MainMenu حدث OnMouseMove ؟؟
تأكد أخي قبل الإجابة
المشاركات : 49
المواضيع 15
:
: 0
الإنتساب : May 2008
نعم لا يوجد له الحدث OnMouseMove
المشاركات : 59
المواضيع 11
:
: 0
الإنتساب : Feb 2008
أخي مروان ان لا أقصد المكون MainMenu
و لكن هناك مكونات أخرى لها الحدث OnMouseMove
المشاركات : 334
المواضيع 83
:
: 17
الإنتساب : Feb 2008
أذكرها من فضلك لتعم الفائدة
وحتى تكون إجابتك كاملة ومفيدة
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
ضع مكون 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;
