Main menu altinda menuler ve sub menuler olusturma

[Burhan_ast]

Merhaba arkadaslar,

Formumda bir adet Main menu var fakat bu menude bos olarak koydum yapmak istedigim hadise su, formun create ozelliginde bu main menuye Stok, Cari, Kasa gibi menuler ekleyecegim, bunun altinda Ana kayitlar, Hareketler, Raporlar gibi alt menuler ve bunlarin altindada yani ana kayitlar icindede stok kartlari, renkler, malin cinsi v.s. gibi diger menuler altindada menuler kaydedip bu menulerede ornegin stok kartlari menusune tiklandiginda menuye ait tag lari kullanarak 1 prosedur icinde Case kullanrak stok menusune tikladiniz, Renklere tikladiniz, gibi mesejlar gostermek istiyorum, yardimlarinizdan dolayi tesekkurler, aslinda delphide ornek kod buldum fakat sorunum, yatay olan menunun altinda ana kayitlar gibi su menuler ve bunlarinda altinda stok kartlari, renkler gibi alt menuler olusturamiyorum,


Saygilar

Burhan Cakmak

[kadirkurtoglu]

merhaba

ilgili ana menü elemanına sağ tıklayıp create submenu demeniz yeterli olacaktır.

kolay gelsin...

[Burhan_ast]

Mrb,

Formun Create esnasinda demistim ama demekki tam anlasilmamis, Runtime esnasinda ben bunu yapmak istiyorum, yani formda hazir degil, program calistiginda olusturulacak

Saygilar


Burhan Cakmak

[vedatkaba]

Kod: Tümünü seç

type
  TForm1 = class(TForm)
    Button1: TButton;
    label1: TLabel;
    MainMenu1: TMainMenu;
    Fonts1: TMenuItem;
    procedure Fonts1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Fonts1Click(Sender: TObject);
begin
  if Sender  Fonts1 then
    label1.Caption := (Sender as TMenuItem).Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  NewItem: TMenuItem;
  i: Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
  begin
    // Create a new Menu Item
    // Neuen Menüpunkt erzeugen
    NewItem := TMenuItem.Create(Self);
    // Take the Font name as Caption
    // Den Schriftnamen als Caption festlegen
    NewItem.Caption := Screen.Fonts.Strings[i];
    // Assign a OnClick-Event
    // Ein OnClick-Ereignis zuweisen
    NewItem.OnClick := Fonts1Click;
    // Add the new menu
    // Den neuen Menüpunkt hinzufügen
    Fonts1.Add(NewItem);
  end;
end;

2. şekil

Kod: Tümünü seç

uses ToolsApi, Menus;

{....}

var
  item: TMenuItem;
begin
  {get reference to delphi's mainmenu. You can handle it like a common TMainMenu}
  with (BorlandIDEServices as INTAServices).GetMainMenu do
  begin
    item := TMenuItem.Create(nil);
    item.Caption := 'A Mewn caption';
    Items.Add(item);
  end;
end;