Arsip: Aktifkan TActionList/TMenuItem

 
user image
more 17 years ago

reminder2k1

Salam... Temen2, aku punya table TTask isinya : [sql:1:cdd70e708f]---------------------------- |NoTask|NamaTask |Aktif| ---------------------------- |101 |Data Barang |True | |102 |Data Supplier|False| ----------------------------[/sql:1:cdd70e708f] Table ini aku fungsikan untuk managemen user terhadap hak akses program. Karena hal tersebut otomatis Table tersebut sangat berkaitan erat dalam meng-visible/hide menu yang berhubungan dengan NoTask tersebut. Dulu aku buat manual di program secara manual, spt berikut (statis):

case NoTask of
101 : AcDataBarang.Visible:=true;
102 : AcDataSupplier.Visible:=true;
end;
Jadi klo ada perubahan/penambahan Task otomatis aku harus ngerombak programnya lagi... Nah sekarang aku mo merubah Tablenya menjadi: [sql:1:cdd70e708f] ------------------------------------------- |NoTask|NamaTask |Menu |Aktif| ------------------------------------------- |101 |Data Barang |mmDataBarang |True | |102 |Data Supplier|mmDataSupplier|False| ------------------------------------------- [/sql:1:cdd70e708f] jadi nti rencana di programnya Field Menu di Table tersebut mengacu ke komponen yang mengaktifkan menu diatas (dinamis)... Nah permasalahannya sekarang, bagaimana cara mengartikan type data String/Varchar[/b:cdd70e708f] tersebut menjadi [b:cdd70e708f]TActionList/TMenuItem Mohon pencerahannya... Thx...
user image
more 17 years ago

EkoIndri

Lebih baik untuk menagement user menggunakan object TPageControl sebagai kontrolnya ketimbang menggunakan TMenuItem yang dibuat dinamis
user image
more 17 years ago

reminder2k1

aku masih bingung mas... Contoh kongkritnya gimana???
user image
more 17 years ago

DelphiExpert

penyelesainnya ya kudu create TAction & TMenuItem secara dinamis... see: create dynamic component
user image
more 17 years ago

deLogic

bisa aja perulangan seluruh komponen, dicek apakah merupakan kelas TAction, jika ya cek apakah nama kelasnya sama dengan yang diinginkan.Jika sesuai, nah tinggal kasih properti Visible nya menjadi yng diinginkan juga.

for i := 0 to ComponentCount - 1 do
begin
  if Components[I] is TAction then
  begin
    AnAction := Components[I] as TAction;
    if AnAction.Name = NamaYangDariDatabase then
      AnAction.Visible := NilaiYangDariDatabase;
  end;
end;
catatan: silahkan lengkapi variabel yang belum dideklarasikan, disesuaikan dengan keinginan, di tuning sesuai kondisi, dan yang jelas ini belum dicoba di compile, hanya pemikiran di-awang2.. :D
user image
more 17 years ago

EkoIndri

Contoh konkritnya adalah buatkan satu tabsheet untuk satu kategori otorisasi Disini memang terjadi pembengkakan ukuran file, karena banyak object jadinya Namun untuk kedepan dan pengembangannya jauh jauh lebih mudah dan stabil. Project yang saya buat rata - rata seperti itu dan kalau client puas dan minta pengembangan, maka proses pengembangannya sangat cepat sekali. Tapi kalau mau selalu validasi, ya mungkin posting dari mas Bayu bisa digunakan sebagai solusinya
user image
more 17 years ago

old_shutterhand

@DE ga usah belat-belit, langsung aja TLoginnya di post :mrgreen: ayo yang laen rame2 demo @DE, minta turunin harga :mrgreen:
user image
more 17 years ago

old_shutterhand

bravo @deLogic, dari kemaren gw bingung bikin algorithm nya. matur nuwun. o ya, sekalian numpang nanya, forum ini kalo diakses dari amrik ko ga bisa, "sedang sakit" gitu.
user image
more 17 years ago

deLogic

@old_shutterhand: perkara penyakit 'sedang sakit', pak komandan sudah memberikan penjelasan, coba baca thread ini: http://pascal-id.org/dpr/Forum-viewtopic-t-4544-postdays-0-postorder-asc-start-60.pas#31706 http://pascal-id.org/dpr/Forum-viewtopic-t-4544-postdays-0-postorder-asc-start-60.pas#31751 http://pascal-id.org/dpr/Forum-viewtopic-t-4544-postdays-0-postorder-asc-start-75.pas#31759
user image
more 16 years ago

DelphiExpert

@old_shutterhand: bravo @deLogic, dari kemaren gw bingung bikin algorithm nya. matur nuwun.
tentu saja anda akan bingung... saya tebak; anda pasti tidak tau bagaimana VCL disusun dan bagaimana VCL ditata dalam structure data secara hirarki. :lol: nah... dasar & cara kerja VCL aja belum tahu bagaimana mungkin anda bisa membuat sebuah algoritma yg berhubungan dalam kontek itu? apalagi membuat sebuah VCL yg tepat guna... mau mulai dari mana ya? nah udah bingung kan :mrgreen:
more ...
  • Pages:
  • 1
  • 2
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com