Membuat PopUpMenu

Bagi temen-temen yang belum pernah menggunakan object "TPopupMenu" mungkin sedikit bingung
tentang bagaimana cara menggunakannya. Kemudian bagi yang sekedar sudah tahu pasti tidak tahu
cara menggunakan "TPopupMenu" secara mudah dan efektif serta tidak bertele-tele ketika aplikasi
sudah dibangun secara kompleks.
Untuk informasi secara detail tentang bagaimana menggunakan "TPopupMenu" secara tepat, silahkan anda baca artikel ini secara detail.


TPopUpMenu memiliki peran yang sangat penting dalam melakukan proses eksekusi prosedur, fungsi atau juga untuk berpindah ke tampilan menu yang lain.

Apabila didalam program aplikasi kita ditambahkan TPopUpMenu, maka hal ini akan membuat program aplikasi yang kita buat akan terkesan menjadi lebih profesional dan lebih elegan. Kenapa dimikian, sebab dengan adanya TPopUpMenu akan semakin memudahkan kita dalam mengoperasikan program.
Syukur-syukur apabila anda juga bisa mengaitkannya dengan TAction yang sudah termanage juga shortcut-shortcutnya. Hal ini akan semakin membuat program aplikasi yang kita buat menjadi lebih user friendly.

Baiklah, disini kita akan bahas satu per satu, untuk TAction dan shortcut sudah kita bahasa sebelumnya dan sekarang kita akan membahas mengenai TPopUpMenu.

Langsung saja kita akan membuat program aplikasi, untuk itu silahkan anda ikuti langkah-langkah berikut ini dengan pelan-pelan.

1. Apabila anda belum membuka program Delphi, sebaiknya anda buka terlebih dahulu.
2. Setelah itu, silahkan anda buat program aplikasi baru dan berikan nama projectnya Project1
3. Simpan difolder yang aman.
4. Sekarang silahkan anda tambahkan Object-object seperti disebutkan dibawah ini.

1. ActionList1 : TActionList;
2. PopupMenu1 : TPopupMenu;
3. Button1 : TButton;
4. Bevel1 : TBevel;
5. StaticText1 : TStaticText;


5. Kemudian silahkan anda atur desain form-nya seperti terlihat dibawah ini.


1. ....
2. ....
3. object Form1: TForm1
4. Left = 219
5. Top = 150
6. Width = 432
7. Height = 208
8. Caption = 'www.hEnDr13.blogspot.com by Hendrie haryanto'
9. Color = clWhite
10. Font.Charset = DEFAULT_CHARSET
11. Font.Color = clWindowText
12. Font.Height = -11
13. Font.Name = 'MS Sans Serif'
14. Font.Style = []
15. OldCreateOrder = False
16. PixelsPerInch = 96
17. TextHeight = 13
18. object Bevel1: TBevel
19. Left = 4
20. Top = 140
21. Width = 416
22. Height = 1
23. Shape = bsTopLine
24. end
25. object Button1: TButton
26. Left = 345
27. Top = 144
28. Width = 75
29. Height = 25
30. Caption = 'Keluar'
31. TabOrder = 0
32. end
33. object StaticText1: TStaticText
34. Left = 8
35. Top = 8
36. Width = 291
37. Height = 17
38. Caption = 'Silahkan anda klik kanan form ini untuk menampilkan PopUp'
39. TabOrder = 1
40. end
41. object ActionList1: TActionList
42. Left = 328
43. Top = 56
44. end
45. object PopupMenu1: TPopupMenu
46. Left = 360
47. Top = 56
48. end
49. end
50. ....
51. ....


6. Selanjutnya kita akan membuat TAction didalam TActionList. Untuk membuat TAction sangatlah mudah, namun demikian silahkan anda ikuti langkah-langkah dibawah ini dengan teliti.

- Pilih TActionList
- Klik 2x TActionList
- Tunggu beberapa saat hingga muncul kotak dialog.
- Tekan tombol "Ins" pada keyboard anda
- Fungsi dari tombol "Ins" ini adalah untuk membuat TAction baru.
- Apabila sudah terbentuk TAction baru dengan nama TAction1, setting propertiesnya seperti berikut ini.

Name = Action_Close
Caption = Keluar

- Sekarang silahkan anda tekan tombol "Ins" sekali lagi untuk membuat TAction baru. dan Setting propertiesnya seperti ditunjukkan dibawah ini:

Name = Action_Info
Caption = Informasi

7. Jika sudah selesai membuat TAction, sekarang anda dapat melanjutkan dengan memberikan kode program di masing-masing TAction yang sudah anda buat.
8. Untuk yang pertama silahkan anda pilih "Action_Close"
9. Silahkan anda isikan kode program didalam event "OnExecute" seperti ditunjukkan pada potongan kode program dibawah ini.


1. ....
2. ....
3. procedure TForm1.Action_CloseExecute(Sender: TObject);
4. begin
5.
6. case MessageDlg('Apakah anda yakin akan keluar dari program aplikasi ini',mtConfirmation,[mbYes,mbNo],0) of
7. mrYes:
8. begin
9.
10. Application.Terminate;
11.
12. end;
13. mrNo:
14. begin
15.
16. // abaikan
17.
18. end;
19. end;
20.
21. end;
22. ....
23. ....




10. Kemudian silahkan anda pilih TAction "Action_Info"
11. Silahkan anda isikan potongan kode program dibawah ini pada event OnExecute.




1. ....
2. ....
3. procedure TForm1.Action_InfoExecute(Sender: TObject);
4. begin
5.
6. MessageDlg('Anda sedang belajar membuat TPopUpMenu',mtInformation,[mbOK],0);
7.
8. end;
9. ....
10. ....


12. Sekarang saatnya menggunakan TAction untuk dipasang di object-object yang membutuhkan TAction
13. Untuk tahap awal kita pilih object "Button1"

Object "Button1" ini dari form terlihat memiliki Caption "Keluar", sehingga tujuannya adalah untuk
membantu operator keluar dari program aplikasi. Jadi ketika ditekan tombol ini, maka program aplikasi
nanti akan ditutup.

14. Selanjutnya silahkan anda tampilkan "object inspector" dengan cara menekan tombol F11
15. Setelah itu, silahkan anda pilih tab "Properties"
16. Pilih properties "Action"
17. Isikan nilai pada properties "Action" dengan nilai "Action_Close"
18. Apabila sudah selesai, silahkan anda pilih object "PopUpMenu1"
19. Klik 2x object tersebut
20. Tunggu beberapa saat hingga muncul desain PopUp
21. Ditampilan itu akan dimuncukan TMenuItem yang belum ada namanya ""
22. Sekarang silahkan pilih TMenuItem tersebut
23. Kemudian silahkan anda tampilkan object inspector dengan menekan tombol F11
24. Lanjutkan dengan memilih properties "Action"
25. Isikan nama TAction pada properties "Action" dengan "Action_Info"
26. Tunggu beberapa saat dan secara otomatis TMenuItem yang status Unnamed tadi berubah menjadi "Informasi1"
27. Kemudian diwaktu yang bersamaan akan terbentuk TMenuItem baru dengan status "".
28. Setelah itu, silahkan anda berikan caption "-" / hanya tanda strip 1 aja
29. Tujuannya adalah untuk memberikan tanda batas untuk TMenuItem yang satu dengan yang lain
30. Jika sudah anda tentukan caption dengan tanda "-", maka akan terbentuk TMenuItem baru lagi dengan status "".
31. Sekarang silahkan anda lanjutkan dengan memilih TMenuItem yang tersebut
32. Tampilkan object inspector dengan cara menekan tombol F11
33. Isikan properties "Action" dengan "Action_Close"
34. Untuk tahap selanjutnya, silahkan anda pilih Form1
35. Tampilkan object inspector dengan menekan tombol F11
36. Pilih properties "PopUpMenu" dan isikan nilainya dengan "PopupMenu1"
37. Apabila sudah anda lakukan semua proses diatas, sekarang silahkan anda lanjutkan langkahnya untuk mengcompile dan menjalan program aplikasi dengan cara menekan tombol F9.
38. Tunggu beberapa saat hingga program aplikasi siap untuk dioperasikan
39. Setelah itu, silahkan anda coba klik kanan Form-nya
40. Jika berhasil, maka akan muncul PopUp dengan 2 item.
41. Pilih Item Informasi untuk menampilkan pesan Informasi
42. Dan pilih Item Keluar untuk keluar dari program aplikasi.
43. Untuk keluar anda juga bisa menekan tombol Keluar.
44. Disini perlu anda ketahui bahwa pada object Action_Close dan Button1 memiliki TAction yang sama ,sehingga dapat dikatakan satu TAction bisa dipakai secara bersama-sama.
45. Mudah bukan buat TPopUpMenu.

Semoga artikel ini bisa bermanfaat buat temen-temen yang baru belajar.


salam,,,