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/ 


Kirim email ke