Penggunaan Popup Menu di Delphi

judulnya popup. 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:

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 aja,hhahahahhahaha

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 dan sudah bisa dijalankan :)

Salam

Hendi Kusnadi

Share :