Penggunaan Popup Menu di Delphi #79

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:

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.

kemudian 1 buah shape pada palette additional.

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

lantas untuk menampilkan menu2 dalam popup nya kita klik kanan komponen popupmenu pada form nya lalu klik “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,

bahan bertambah dan kita langsung saja beri event onclicknya.

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