konhon

忘掉過去，展望未來。找回自我，超越自我。
逃避不一定躲的过, 面对不一定最难过, 孤单不一定不快乐, 得到不一定能长久, 失去不一定不再拥有, 可能因为某个理由而伤心难过, 但我却能找个理由让自己快乐.

Google

BlogJava 首页 新随笔 联系 聚合 管理
  203 Posts :: 0 Stories :: 61 Comments :: 0 Trackbacks
在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;
posted on 2005-08-25 06:58 konhon 优华 阅读(604) 评论(0)  编辑  收藏 所属分类: Delphi

只有注册用户登录后才能发表评论。
网站导航: