Contoh Aplikasi Dengan Popup Menu Pas Di Bawah Button (Left Click)

Menjawab pertanyaan seorang member di Komunitas  Penggemar Pemrograman Delphi Indonesia, berikut saya tulis contoh membuat pop-up menu yang tampil saat tombol diklik (left click). Posisinya pas di bawah tombol tersebut.

Buat sebuah aplikasi dan letakkan sebuah TButton serta sebuah TPopupMenu ke form. Gambar berikut dapat menjadi acuan:

Isilah beberapa item dalam popup menu, caranya seperti biasa. Kemudian, kita akan membuat kodenya. Klik ganda Button1 dan isi event OnClick dengan kode seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
 pt: TPoint;
begin
//Ambil posisi pas di bawah button, konversi ke posisi screen desktop:
 pt := ClientToScreen(Point(Button1.Left, Button1.Top+Button1.Height));
//tampilkan popup menu di posisi tersebut:
 PopupMenu1.Popup(pt.X, pt.Y);
end;

Nah, sekarang jalankan aplikasi. Hasilnya:

Tips

Di Delphi 2009 ke atas, Anda tidak perlu kode sama sekali. Cukup Klik pada Button1, di Object Inspector set property Style ke bsSplitButton, kemudian set property DropDownMenu ke PopupMenu1. Selesai. Anda akan mendapatkan hasil yang sama dengan tampilan:

Demikian tulisan ini, semoga bermanfaat. Jangan lupa share dengan mengklik tombol share ke Facebook di bawah, agar teman Anda juga ikut membaca. Makasih

Related Topic

Tutorial Menampilkan Rumus Matematika Di DelphiTutorial Membuat Aplikasi Upload File Dengan UniGUI dan DelphiMembuat Popup Menu Saat Runtime Dengan DelphiKumpulan Download Contoh Program Menggunakan DelphiInstall MySQL Server Directly From Delphi Application

Incoming search terms:

• contoh pop up
• contoh rancangan aplikasi perpustakaan dengan delphi
• contoh spop
• contoh aplikasi delphi dengan mysql
• pengertian pop up
• aplikasi popup menu
• hide icon aplikasi di taskbar dengan delphi
• pengertian popup
• sebutkan Menu sup dari menu Ribbon
• menu pull down menu cascading menu pop-up

Comments

comments

Powered by Facebook Comments