Popup menü

[bgoktas]

Arkadaşlar merhaba, bayadır foruma uğrayamadım. Şimdi bir şeye takıldım;

Popup menümde;


1-a
2-b
3-c

diye satırlar mevcut ben 3. satırın altına

1-a
2-b
3-c
3-c-1
3-c-2

gibisinden alt menüyü programın içerisinden eklemek istiyorum. Yani ben popup menüyü çağırdığımda o ilgili alanın(3 nolu alan) altına xxx tablesindeki yyy fieldlarını ekleyecek.

Yardımlar için şimdiden teşekkürler...

[mussimsek]

Merhaba,

$Delphi\Help\Examples klasöründe menülerle ilgili birkaç demo var. İstediğin tüm kodlar orda

kolay gelsin.

[gkimirti]

hocam formuna bir popupmenu koy ve 3 eleman ekle
bir de buton koyup icine

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Mi: TMenuItem;
begin
  Mi:=TMenuItem.Create(PopupMenu1);
  Mi.Caption:='ekle1';
  PopupMenu1.Items[2].Add(Mi);

  Mi:=TMenuItem.Create(PopupMenu1);
  Mi.Caption:='ekle2';
  PopupMenu1.Items[2].Add(Mi);
end;