PopUp menu Berada Di bawah Tombol Button di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Membuat PopUp menu Berada Dibawah Tombol. Coding Agar PopUpmenu muncul saat tombol diklik dan tepat berada dibawahnya :

procedure TForm1.BitTombolClick(Sender: TObject);
begin
with BitTombol.ClientToScreen(point(0,BitTombol.Height)) do
PopupMenu1.Popup(x,y)
end;

Hasil :

Jangan Lupa Untuk Selalu Berkunjung  !!