2017年9月7日 星期四

Button 與 PopupMenu 搭配, PopupMenu顯示時, 對齊Button左側

Button 與 PopupMenu 搭配, PopupMenu顯示時, 對齊Button左側


procedure TForm.ButtonClick(Sender: TObject);
var APoint:TPoint;
begin
  APoint := Button.ClientToScreen(Point(0, Button.ClientHeight));
  PopupMenu1.Popup(APoint.X, APoint.Y);
end;

沒有留言:

張貼留言