كيفية عمل قائمة بالديلفي تشبه قائمة ابدأ بالويندوز ؟

You need a popupmenu and a speedbutton;

now in the speedbutton onclick event type this;

procedure Tfrec.SpeedButton1Click(Sender: TObject);

var

  x,y,d : integer;

begin

  if d <> 1 then

  begin

    x := speedbutton1.Left;

    y := speedbutton1.Top;

    popupmenu1.visible := true;

    popupmenu1.Popup(x, y);

    d := 1;

  end

  else

    begin

      popupmenu1.visible := false;

      d := 0;

    end; 

end;

the d variable is for closing the popupmenu on clicking the speedbutton again (like the start button in windows);

Best Regards

Salameh

شــكراً لمسـاعدتك و اهتمامك أخي D-Master

فهي تمام و ناجحة . . .

لكن لأخذ العلم عند التنفيذ تعطي خطأ عند التعليمة :

popupmenu1.visible := true;

لأن الـ popupmenu1 لا تملك خاصية الـ visible

وبدونها كل شي تمام لكن بانقاص ميزة اغلاق القائمة عند الضغط مرة ثانيـة على speedbutton .

وشــكرا لك لـشرح الطريقـة و لحل مشـكلتي .

ريــد ســـــــــتـار

لا شكر على واجب

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

x,y,d : integer;

begin

if d <> 1 then

begin

x := speedbutton1.Left+left;

y := top + speedbutton1.Top-(PopupMenu1.Items.Count*16);

popupmenu1.Popup(x, y);

d := 1;

end

else

begin

d := 0;

end;

end;

أرجو أن أكون قد قدمت ما يفيد وشكراً:P