在动态生成控件时，如何做到像在Delphi环境下那样用鼠标来确定它的大小？

Martin80 2004-05-02 04:09:14
如题
...全文
90 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
miky 2004-05-02
  • 打赏
  • 举报
 回复
捕获鼠标指针位置，当鼠标指针位于4条边或4个角时显示不同的光标，然后根据鼠标的位置设置控件的大小，没什么难度，但很罗嗦。
干脆用Width := XXX; Height := XXX把它定死算了，好用又方便。
delphi 控件移动_如何在运行时移动和调整控件大小（在Delphi应用程序中）
delphi 控件移动 Here's how to enable dragging and resizing controls (on a Delphi form) with a mouse, while the application is running. 以下是在应用程序运行时如何使用鼠标启用拖动和调整控件大小(在Delphi窗体上)的方法。 运行时的表单编辑器 ( Form E...
Delphi 运行时 可拖动控件
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) btn1: TButton; Main1: TIm
在DELPHI中动态创建控件以及控件的事件
     在DELPHI中我们经常要动态的创建控件以及控件的事件。例如，我们可能想根据程序需要动态的创建一些Tshape组件来创建某个图形，并使得在鼠标移动上去之后可以完成某些操作。这一般需要需要三步： 生成一个制定组件类的实例 为这个实例付初值 在使用完毕后，释放资源    下面将通过一个例子来演示，例子的功能是动态创建一个Tshape的实例MyShap
实现控件的移动，改变大小（DELPHI实现）
实现控件的移动，改变大小（DELPHI实现）主要使用Perform方法  function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;  只要能够使用类似于win32API的函数SendMessage()，本方法同样可在其他环境里应用。用Delphi实现首先，建立一个应用程序，在一个窗体里加入一个Panel1，保存为m
Delphi实现控件的移动、改变大小
关键词:实现控件的移动、改变大小 实现控件的移动，改变大小（DELPHI实现） 主要使用Perform方法   function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;    只要能够使用类似于win32API的函数SendMessage()，本方法同样可在其他环境里应用。 用Delphi实现 首
Delphi

5,943

社区成员

262,942

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章