delphi 鼠标单击窗体某一点显示label

显示全部楼层 · 2009-1-29 12:57:32

delphi 能否实现单击窗体上的某一点就在鼠标单击的那一点显示Label
或者其他的控件！（菜单就不用了！）

千问 · 2009-1-29 12:57:32

procedure TForm1.FormClick(Sender: TObject);varlb: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;...

千问 · 2009-1-29 12:57:32

最简单的就是先把LABEL隐藏，在窗体的MOUSEDOWN事件中，把控件显示...

千问 · 2009-1-29 12:57:32

动态创建...