Membuat Menu Navigasi dengan Alpha Skin di Delphi

Pada Postingan Sebelumnya Sudah saya jelaskan Bagaimana membuat menu Navigasi Samping dengan menggunakan component delphi Pihak ketiga yaitu DevExpress. Bagi Anda yang belum membacanya silahkan lihat disini. Belakang ini saya baru tahu ternyata nama menu ini adalah Menu Accordion. haha :D

Kali ini saya akan sharing bagaimana membuat menu Accordion (Navigasi Samping) Seperti gambar diatas dengan menggunakan component Alpha Skin. Caranya Cukup mudah. Pertama, Silahkan Download component Alpha Skin delphi pada postingan yang ada disini kemudian install. Jika Sudah beres, Lanjutkan membaca. ;)

1. Tambahkan Beberapa komponen berikut pada form anda Secara berurutan

    

    - 1 Buah Panel -> Property -> Align = alTop, Caption = Terserah

    - 1 Buah StatusBar -> Klik 2 kali -> Tambahkan 2 Panel dan atur Teksnya

    - 1 Buah sFrameBar (Pallete Alpha Additonal) -> Property -> Align = alLeft

    - 1 Buah Panel -> Property -> Align = alClient, Caption = Kosong

    - 1 Buah ImageList -> Klik 2 Kali -> Add Beberapa Icon

Proses Selanjutnya adalah (bagian yang paling penting). 

Klik 1 Kali Pada sFramebar yang sudah anda tambahkan pada form anda kemudian atur Property -> Images = ImageList1 

Klik 2 Kali Pada sFramebar yang sudah anda tambahkan pada Form anda kemudian tambahkan beberapa Item dan Seperti gambar begikut. 

Pada Masing-masing item dari gambar diatas, atur Property sebagai berikut. Lakukan Secara Berurutan mulai dari yang paling atas. 

Caption = Menu Satu

ImageIndex = Mulai dari Nol (Lihat Daftar Icon yang ada di ImageList)

Sampai disini, Hasil Sementara Seperti gambar berikut :

Tahap Selanjutnya, Karena Pada Poses ini kita membuat Lima Menu Pada sFramebar, Maka Tambahkan Lima buah Frame ke Projek Anda (File -> New -> Frame).

Pada Masing-Masing Frame yang sudah anda tambahkan, Atur Ukurannya Sesuai Keinginan anda lalu Tambahkan Pula Beberapa Button atau BitButton. 

Klik 2 Kali Pada sFrameBar tadi. Pada Masing-Masing Item -> Event -> OnCreateFrame Tambahkan kode berikut Frame :=TFrame1.Create(nil); Lakukan secara berurutan mulai dari Item Paling atas.

Untuk Hasil Akhirnya, Silahkan Download disini. Selamat Mencoba dan Salam Sukses Selalu. :)