Arsip: Tips menggunakan PopUp Menu di Delphi


by e2n_qren in Form more 12 years ago 4647
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.

ActionList1		: TActionList;
    PopupMenu1		: TPopupMenu;
    Button1		: TButton;
    Bevel1		: TBevel;
    StaticText1		: TStaticText;


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

....
....
object Form1: TForm1
  Left = 219
  Top = 150
  Width = 432
  Height = 208
  Caption = 'www.hEnDr13.blogspot.com by Hendrie haryanto'
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 4
    Top = 140
    Width = 416
    Height = 1
    Shape = bsTopLine
  end
  object Button1: TButton
    Left = 345
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Keluar'
    TabOrder = 0
  end
  object StaticText1: TStaticText
    Left = 8
    Top = 8
    Width = 291
    Height = 17
    Caption = 'Silahkan anda klik kanan form ini untuk menampilkan PopUp'
    TabOrder = 1
  end
  object ActionList1: TActionList
    Left = 328
    Top = 56
  end
  object PopupMenu1: TPopupMenu
    Left = 360
    Top = 56
  end
end
....
....


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.


....
....
procedure TForm1.Action_CloseExecute(Sender: TObject);
begin
case MessageDlg('Apakah anda yakin akan keluar dari program aplikasi ini',mtConfirmation,[mbYes,mbNo],0) of
  mrYes:
    begin
    Application.Terminate;
    end;
  mrNo:
    begin
    // abaikan
    end;
  end;
end;
....
....


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


....
....
procedure TForm1.Action_InfoExecute(Sender: TObject);
begin
MessageDlg('Anda sedang belajar membuat TPopUpMenu',mtInformation,[mbOK],0);
end;
....
....


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 "<unnamed>"
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 "<unnamed>".
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 "<unnamed>".
31. Sekarang silahkan anda lanjutkan dengan memilih TMenuItem yang <unnamed> 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,

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