说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

动态创建了多个StaticText,我想实现将任意一个StaticText拖动到另一个StaticText上后交换他们的几个属性,该如何做?

编辑:说三道四文库 发布时间:2017-11-21 03:04
HTML文档下载 WORD文档下载 PDF文档下载
动态创建了多个StaticText,我想实现将任意一个StaticText拖动到另一个StaticText上后交换他们的几个属性,该如何做?
  我主要是想实现拖动构件交换他们的属性,而他们的位置不变。
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure StaticDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure StaticDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    Static1, Static2, Static3: TStaticText;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.StaticDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if (TStaticText(Sender).Name <> TStaticText(Source).Name) then
    TStaticText(Sender).Color := TStaticText(Source).Color;
end;

procedure TForm1.StaticDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (TStaticText(Sender).Name <> TStaticText(Source).Name) then
    Accept := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Static1 := TStaticText.Create(Self);
  Static1.Name := 'S1';
  Static1.Parent := Self;
  Static1.Color := clRed;
  Static1.Left := 10;
  Static1.Top := 10;
  Static1.Width := 100;
  Static1.Height := 30;
  Static1.DragMode := dmAutomatic;
  Static1.OnDragDrop := StaticDragDrop;
  Static1.OnDragOver := StaticDragOver;

  Static2 := TStaticText.Create(Self);
  Static2.Name := 'S2';
  Static2.Parent := Self;
  Static2.Color := clGreen;
  Static2.Left := 10;
  Static2.Top := 60;
  Static2.Width := 100;
  Static2.Height := 30;
  Static2.DragMode := dmAutomatic;
  Static2.OnDragDrop := StaticDragDrop;
  Static2.OnDragOver := StaticDragOver;

  Static3 := TStaticText.Create(Self);
  Static3.Name := 'S3';
  Static3.Parent := Self;
  Static3.Color := clBlue;
  Static3.Left := 10;
  Static3.Top := 110;
  Static3.Width := 100;
  Static3.Height := 30;
  Static3.DragMode := dmAutomatic;
  Static3.OnDragDrop := StaticDragDrop;
  Static3.OnDragOver := StaticDragOver;
end;
从一个简单的程序来了解PHP -PHP初学入门教程3 PHP语法基础 -PHP初学入门教程4 建设一个简单的交互网站(一) -PHP初学入门教程5 建设一个简单交互的网站(二) -PHP初学入门教程6 建设一个简单交互的网站(三)密码验证 -PHP初学入门教程7 PHP文件上传 -PHP初学入门教程8 为站点添加投票功能 -PHP初学入门教程9 广告条轮播-PHP初学入门教程10 操作MySQL数据库实现简单的留言板-PHP初学入门教程11 使用PHP来操作Oracle数据库 -PHP初学入门教程12 技术杂项PHP教程结束篇 -PHP初学入门教程13 .NET中DataSet和DataReader的区别与转换 CGI技术及其开发(二)-Delphi资料 CGI技术及其开发(一)-Delphi资料 COM/DCOM中如何传递数组-Delphi资料 COM与DCOM的区别与联系-Delphi资料 Cookie的建立使用-Delphi资料 Delphi 3中Cookie的建立使用 Delphi 中 串 行 通 信 的 实 现 Delphi4.0 开发WEBMAIL程序 Delphi4的Winsocket编程 Delphi4开发WEBMAIL程序 Delphi编写网络程序的安全措施 DELPHI 和 THE INTERNET Delphi开发Web Server程序如何返回图像 Delphi开发Web Server程序响应用户的输入 DELPHI与INTERNET(二) DELPHI与INTERNET(一) Delphi中串行通信的实现 Email 服务器的简单实现-Delphi资料 Internet编程技巧-Delphi资料 哪里有关于Oracle的电子书? 老问题:组件的注册问题 求最精彩的算法 下载出问题了,大家快来救呀 如何下载 .rt 文件 ??? 今天很不爽,散分了,名字带狼的都有分 奇怪问题,在线等待求救!!! 今天很不爽,散分了,名字带狼的都有分 如何设计能够处理动态字段的数据库(最好Paradox) 任何字体修饰都不起作用,为什么 怎样取得服务器IP地址? 谁有ERP详细设计书、数据字典。重谢 “网交控”能轻松帮助您的企业和单位最方便的控制和最高效的使用网络资源(介绍篇,顶者有分) 将query的数据倒入excel该如何处理 更新问题 找不到字段名 在线等 如果我要加入团队开发,那应该安装哪个ORACLE8i的产品?在线等 这一句错在哪里? [求助]关于多线程同时读写SOCKET 庆祝!经过公平选拔公司聘我配置管理经理! 送分!!!!!!!! 我想在DataSourceDataChange中写代码,来判断当某一字段的值输入为1时,我想让另一个字段显示! 怎样获取本机上网的DNS地址? 如何实现用JS实现首页调用 ! 请教各位大侠广告系统应怎么运作和推广?100分。附系统说明 IE不能运行JavaScript\vbScript,怎么解决这个问题? sql server ce 数据库压缩问题 我要从光盘拷贝文件出来,还有怎么获得光盘的大小等参数,谢谢。 vi中编写c程序,如何让关键字显示不同颜色 这个错误是为什么? 关于日期(Date)的问题! linux下weblogic7.0连接oracle的问题:pool和Data Resource如何配置???好难呀!!!!!! 下面一段写入数据库的代码 为什么 老出错误 急!高分求救!如何加密? 请问一个关于OpenDialog1程序运行的问题? 庆祝!经过公平选拔公司聘我配置管理经理! 在客户端打开服务器上的Word,PDF等文件时能否限制客户端COPY,另存等功能 分 多了该怎么办呢?:-) DataGrid及水晶报表问题!请高手指点!! 成功安装了oracle8.17,接下来我该怎么配置呢? .net frameword 1.1 C#语言有什么变化? 如何运行一句动态组装的sql语句?? 怪问题!高分求助!!! "面试试题"急求解答。急!!!!!!急!!!! 个人所得税计税基数由原来的800元,修改现计税基数1200元,请修改? 关于权限 javascript中怎样去掉字符串中的空格 求购基于Html的全文检索(用于光盘发布的)相关技术(控件和接口资料) 大家碰到这种问题是怎么解决的??? 如何令窗体只加载一次!Dim aa As New Form2 aa.Show() 关于下载的问题!!!!!!!!非常急!!!!!!!!!!! DB2不能一次插入多条记录么?? 公元前995年距今有几年 求大仙帮忙修改作文、我的老爸提到爸爸,相信每个人脑海中都会有不同的印象,而我对老爸的印象标签是“幽默”“童心”“学识渊博”等.其中,最令我喜欢特点就是他那可爱的“童心”.老 左边是木字旁,右边上面是个立,底下是个水字,组合是什么字啊】 跪求一篇小短文(200字)即可 描写一段心理活动 我一定会加分的 将一个多位数的末尾与首位数对换,得到的新多位数是原多位数的2倍 求这个数 一个多位数,把个位数调到第一位,组成的数是原来的2倍,这个数是?没有什么要补充,就是在下午之前有个正确答案! 求一个多位数,它的最后一位数放到第一位后是原来的两倍 一个多位数,将个位数移到第一位,这个数是原来的两倍,这个多位数是多少 最小的彗星有多大? 彗星们平均都有多大呀?给些具体一点的数据.每一颗的大小说和平均的大小,比如直径约为1km的蛋形之类的. 67p彗星有多大 伊朗最高领袖对核谈“不乐观”国际晚班车:外交官的家庭生活国际财经一周大事回顾中国上市公司三季报业绩再涨 四季度增朴槿惠:日本应向德国学习正视历史错误世界主要城市11月4日天气预报萨耶赫:“非洲要重返经济危机前高速发浙江普陀山大型翡翠观音宝像开雕载70人船只在缅甸海域倾覆 已找到8美共和党议员称国安局或监听奥巴马电话朴槿惠:日本应向德国学习正视历史错误木须肉,肉和鸡蛋也碰撞出火花!iPhone 7卖点不多出货量下降?你的受虐狂指数是多少?注意,这几类股票或被错杀可抄底!8点1氪:员工内部创业可获Googl【首发】创业者Sky拿到了王思聪的5易洪永居士:卫生间装修容易被忽略的风英媒:马航MH17航班或被乌克兰战机日众院补选朝野政党各胜一场 参院攻防美钻井数续减助长多头 油价震荡蓄势静易洪永居士:办公会议室的风水要点
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘