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

来源：百度知道 编辑：UC知道 时间：2024/05/23 20:27:33
delphi 能否实现单击窗体上的某一点就在鼠标单击的那一点显示Label
或者其他的控件！ （菜单就不用了！）

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;

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

动态创建