Thursday, September 25, 2003, 2:03:28 PM, you wrote:
p> Mo gabung nich, tp sori kalo dulu udah ada yg prnh nanya
p> Critanya gwe mo buat menu yang menampilkan data propinsi.
p> singkatnya:
p> dimenu ditampilkan
p> - propinsi - Sumatra - Aceh
p> - Medan
p> - Padang
p> - Riau
p> - Jambi
p> - Jawa - Banten
p> - Jakarta
p> - Bandung
p> - Semarang
p> - Jogja
p> aku penginnya kalo di klik Aceh ada tanda check di Aceh, kalo di
p> check di Jakarta tanda yang di Aceh hilang, di Jakarta muncul.
Coba aja potongan source code dibawah ini di test dulu, jadi bikin
menu sesuai yang anda inginkan setelah itu setiap OnClick diisi
procedure "Wah" jangan lupa di bagian declaration ditambahkan
FCurrMenuItem dan deklarasi procedure "Wah".
Tapi kalo saya boleh kasih saran kalo menunya bener-bener dinamis dan
buanyak dan terstruktur mendingan menu dicreate saat runtime secara
programatically itu jauh lebih mudah menurut saya daripada saat
designtime.
<!--DEL-->
*** TAMBAHAN DI BAGIAN DECLARATION ***
private
FCurrMenuItem: TMenuItem;
procedure Wah(Sender: TObject);
*** TAMBAHAN DI BAGIAN IMPLEMENTATION ***
procedure TForm1.Wah(Sender: TObject);
begin
if FCurrMenuItem <> nil then FCurrMenuItem.Checked := False;
if Sender is TMenuItem then begin
TMenuItem(Sender).Checked := True;
FCurrMenuItem := TMenuItem(Sender);
end;
end;
procedure TForm1.Jakarta1Click(Sender: TObject);
begin
Wah(Sender);
end;
procedure TForm1.Bandung1Click(Sender: TObject);
begin
Wah(Sender);
end;
procedure TForm1.Banten1Click(Sender: TObject);
begin
Wah(Sender);
end;
procedure TForm1.Medan1Click(Sender: TObject);
begin
Wah(Sender);
end;
procedure TForm1.Aceh1Click(Sender: TObject);
begin
Wah(Sender);
end;
procedure TForm1.Padang1Click(Sender: TObject);
begin
Wah(Sender);
end;
---
Best regards,
Syarif Lumintarjo
[EMAIL PROTECTED]
------------------------ 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/
