delphi 鼠标单击窗体某一点显示label
delphi能否实现单击窗体上的某一点就在鼠标单击的那一点显示Label或者其他的控件！（菜单就不用了！）...
delphi 能否实现单击窗体上的某一点就在鼠标单击的那一点显示Label
或者其他的控件！ （菜单就不用了！） 展开
或者其他的控件！ （菜单就不用了！） 展开
3个回答
展开全部
procedure TForm1.FormClick(Sender: TObject);
var
lb:TLabel;
begin
form1.WindowState:=wsMaximized ;
h:=Mouse.CursorPos.Y ;
w:=Mouse.cursorPos.X ;
lb:=TLabel.Create(self);
lb.Parent:=self;
lb.Top :=h ;
lb.Left:=w ;
lb.Caption:='new';
end;
var
lb:TLabel;
begin
form1.WindowState:=wsMaximized ;
h:=Mouse.CursorPos.Y ;
w:=Mouse.cursorPos.X ;
lb:=TLabel.Create(self);
lb.Parent:=self;
lb.Top :=h ;
lb.Left:=w ;
lb.Caption:='new';
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
