在Lalel上单击,然后在Label下文出现下拉框(popupmenu),怎样让下拉框紧挨着Label下方出现。

在Lalel上单击,然后在Label下文出现下拉框(popupmenu),怎样让下拉框紧挨着Label下方出现。
procedure TForm1.Label1Click(Sender: TObject);
var
  lPoint: TPoint;
begin
  lPoint.X := TLabel(Sender).Left;
  lPoint.Y := TLabel(Sender).Top + TLabel(Sender).Height;
  lPoint:=ClientToScreen(lPoint);
  PopupMenu1.Popup(lPoint.X, lPoint.Y);
end;

你可能感兴趣的:(在Lalel上单击,然后在Label下文出现下拉框(popupmenu),怎样让下拉框紧挨着Label下方出现。)