DelphiPemrograman

Penggunaan Popup Menu di Delphi #79

Asbak adalah wadah sekar roko

andrypein.net : Judulnya popup, namun popup disini bukan new window yang tiba2 muncul kalau kita mengklik iklan disuatu website (browser).

popup disini adalah menu kecil yang floating (melayang) apabila kita mengklik tombol kanan mouse.

seperti ini bebentukannya:

seperti ini

dalam delphi dikenal sebagai popup menu.

sekarang tutornya bagaimana membuat popup menu tersebut.
bentuk form yang ukurannya standar lah tidak terlalu besar.
kita hanya memakai 2 bahan yaitu popup dan shape,popup ada di palette standard yang disamping label.

popup di palette standard

kemudian 1 buah shape pada palette additional.

shape di palette additional

nah setelah semua dipersiapkan kita bentuk dengan sangat sederhana saja seperti ini:

pre form

lantas untuk menampilkan menu2 dalam popup nya kita klik kanan komponen popupmenu pada form nya lalu klik “menu designer”.

menu designer

karena program yang akan kita buat itu hanya mengganti shape-shape pada form.

lalu kita isi semua caption pada popup nya seperti ini :

sampai 6 buah bentuk shape

setelah semua selesai kita koneksikan agar popup tersebut tampil pada saat program di run,yaitu dengan cara sorot bagian formnya.

terlihat disana pada bagian “popupmenu”,nah itulah yang akan kita panggil desain popup yang telah kita buat agar popup tersebut bisa tampil saat program run.

setelah itu dilakukan kita hanya beri listing pada masing2 menu item di popup menunya,

treeview

bahan bertambah dan kita langsung saja beri event onclicknya.

onclick

karena ada 6 jadi ya kita kasih 6 buah kode.

procedure TForm1.rectangle1Click(Sender: TObject);
begin
 shape1.Shape:=stRectangle;
end;

procedure TForm1.circle1Click(Sender: TObject);
begin
 shape1.Shape:=stCircle;
end;

procedure TForm1.elips1Click(Sender: TObject);
begin
 shape1.Shape:=stEllipse;
end;

procedure TForm1.square1Click(Sender: TObject);
begin
 shape1.Shape:=stSquare;
end;

procedure TForm1.roundrect1Click(Sender: TObject);
begin
 shape1.Shape:=stRoundRect;
end;

procedure TForm1.roundsquare1Click(Sender: TObject);
begin
 shape1.Shape:=stRoundSquare;
end;
selesai sudah popup menu di delphi nya dan sudah bisa dijalankan.

semoga bermanfaat

*AFK

Related Articles

One Comment

  1. saya mau minta tolong nih….saya lagi bingung banget lagi buat enskripsi folder dengan metode twofish dengan delphi…tau gak sourcenya sudah 2 bulan saya mondar mandir gak dapat….???please tolongin saya GAN……..saya lagi buat tugas akhir ni email saya zoule87[at]gmail.com

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button