Sunday, September 28, 2003, 10:55:00 AM, you wrote: <!--DEL-->
s> saya coba buat turunan dari TMainMenu dan menulis item-item menu s> yang saya inginkan, tapi tetap saja pada saat didrag diform s> itemsnya pada saat design time masih kosong <!--DEL--> Cobain contoh dibawah ini, tambahin aja komponen TMainMenu 1 buah ke form. Tapi kerjaannya nggak sampe sini, kita wajib mengisi Event OnClick kalo mau agar supaya menu tsb. berfungsi kalo cuman spt. ini kalo di klik nggak ada apa-apa. ===[BEGIN_SOURCE_CODE]=========================================== procedure TForm1.FormCreate(Sender: TObject); var m, m1, m2, m3: TMenuItem; begin m1 := TMenuItem.Create(MainMenu1); m1.Caption := 'Menu1'; m2 := TMenuItem.Create(MainMenu1); m2.Caption := 'Menu2'; m3 := TMenuItem.Create(MainMenu1); m3.Caption := 'Menu3'; MainMenu1.Items.Add(m1); MainMenu1.Items.Add(m2); MainMenu1.Items.Add(m3); m := TMenuItem.Create(m1); m.Caption := 'abc'; m1.Add(m); m := TMenuItem.Create(m1); m.Caption := 'bcd'; m2.Add(m); m := TMenuItem.Create(m1); m.Caption := 'dgg'; m3.Add(m); end; ===[END_SOURCE_CODE]============================================= --- Best regards, Syarif Lumintarjo e-mail : [EMAIL PROTECTED] Y! : syarifl ICQ# : 17357739 ------------------------ Yahoo! Groups Sponsor ---------------------~--> Upgrade to 128-Bit SSL Security! http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
