روی PopupMenudیک PopupMenuدیگری باز کرد

[SBehfar]

لطفا به من بگویید
چگونه میتوان روی PopupMenudیک PopupMenuدیگری باز کرد مثل خود ویندوز مثلا وقتی که به Programsویندوز میرویم روی برنامه های نصب شده میتوانیم کلیک را ست را بزنیم ویک منوی دیگری باز میشود و امکاناتی چونOpen,Create ShortCutوجود دارد من همین موضوع را میخواهم در برنامه خود پیاده کنم

[esi022]

<span dir=ltr>
procedure TForm1.MyShow&#40;Sender&#58; TObject&#41;;
begin
with Sender as TMenuItem do ShowMessage&#40;Caption&#41;;
end;

procedure TForm1.First1Click&#40;Sender&#58; TObject&#41;;
var
MyPopUpItems&#58; array&#91;0..2&#93; of TMenuItem;
i&#58; Integer;
begin
for i&#58;=0 to 2 do
begin
MyPopUpItems&#91;i&#93;&#58;=TMenuItem.Create&#40;Self&#41;;
MyPopUpItems&#91;i&#93;.Caption&#58;='New item '+IntToStr&#40;i&#41;;
PopupMenu1.Items&#91;1&#93;.Insert&#40;i, MyPopupItems&#91;i&#93;&#41;;
MyPopUpItems&#91;i&#93;.OnClick&#58;=MyShow;
end;
end;</span>

[SBehfar]

منظور من این نبود که وقتی یک ایتم را انتخاب میکنیم چند ایتم دیگر در کنارش باز شود منظور من این بود که وقتی شما روی یک ‍PopupMenuکلیک راست میکنی یک PopupMenu جدید باز شود بهتر است برای متوجه شدن منظور من به این مسیر بروید ‍Start > Prpgrams و سپس روی Accessoresکلیک راست را بزنید میبینید که یک PopupMenu جدید باز میشود
با آرزوی موفقیت روز افزون برای تمامی دلفی کاران عزیز