Tips menggunakan PopUp Menu di Delphi
07 Desember 2008
Tips menggunakan PopUp Menu di Delphi
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.benpinter.net by Eko Indriyawan'
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 "
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
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.
Diposting olehYudhy Rivaldi di 15.43
sharing - shering coding boss...
sambil belajar lage ne...
dah banyak yang lupa...
hahahahahhahahhhh:D
masukan:
- setingan apache dong?
- instalasi joomla di pc?
hehehehehhh :d
bagus tu buat artikel
Mc/D-ma
file