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 !!
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 !!
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 !!
No comments:
Post a Comment
Jangan Lupa Memberikan Komentar, Namun Tolong Agar Menggunakan Bahasa Yang BAIK dan SOPAN Terima Kasih...