两行代码实现两个或者多个窗体的磁性吸附

最新推荐文章于 2021-01-11 22:46:52 发布
最新推荐文章于 2021-01-11 22:46:52 发布
阅读量697 收藏 1
点赞数 1
文章标签： pascal delphi timer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jxbw197408/article/details/2918128
版权

两行代码即可实现....两个窗体的磁性依附,,个人感觉非常好用!


[code=Delphi(Pascal)][/code]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FORM2.Left:=form1.Left+form1.Width;
  form2.Top:=form1.Top;
end;

 

就这两行代码.....

jxbw7408
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
C#实现窗口靠近屏幕边缘自动吸附
kingken212的专栏
05-15 4893
C#中实现窗口靠近屏幕边缘，自动吸附；
WinForm实现同时让两个窗体有激活效果的特效实例
09-04
主要介绍了WinForm实现同时让两个窗体有激活效果的特效实例,基于windows api实现一个窗体激活的时候给另外一个发消息的特效,在进行C#项目开发时有一定的实用价值,需要的朋友可以参考下
Delphi仿QQ窗口自动定位（磁性吸附）功能.rar
07-10
Delphi仿QQ窗口自动定位或隐藏（磁性吸附）功能，当鼠标拖动窗口至屏幕边缘或主窗体附近时，窗口会自动靠近主窗口，有的是自动吸附在主窗口上，好像带有磁性一样，这种窗口目前被应用到了很多视频播放器上面，比如播放列表可从主窗口脱离，然后拖近主窗口时，会自动吸在主窗口上。部分主程序代码： 　　当 top 距屏幕上侧 20 像素时,自动隐藏 　　 if frmMain.Top Screen.Width) then 　　 frmMain.Left:= Screen.Width - frmMain.Width; 　　 end 　　 // 当 left 距屏幕下侧 20 像素时,自动隐藏 　　 else if frmMain.Left frmMain.Width - Screen.Width >= -20 then 　　 //将frmMain向右移，在屏幕右方露出4像素
前端页面jquery处理分子式，离子，化学反应方程式的方法与思路。
从小就想写代码的博客
04-23 756
今天看到页面上的分子式【C14H19NO4S】，觉得这样显示出来挺别扭，我就给改造了一下。 学过化学的都知道，如果只是分子式，那么所有的数字都是下标。只有涉及到反应方程式才有不变下标的数字。 那么我们只要使用【sub】标签，把分子式中出现的所有数字都变成下标就好了 'C14H19NO4S'.replace(/(\d+)/g, "<sub>$1</sub>"); 最...
前端实现原理_前端开发的学习路线和开发路线----
weixin_39540744的博客
01-11 303
随着互联网的深入发展，前端开发工程师已成为市场上极具竞争力的人才。许多学生，包括以前的UI，java，或完全零基础，想学习的前端。下面的思维导图是在互联网上广泛传播的前端学习地图。许多初学者说，当他们看到这些密集的知识点时会感到头晕目眩。事实上，前端是一个宽泛的主题。但你需要学习前端你不必惊慌，虽然内容比较多，是没有规律可循，只要一步一步地不怕学习不好的前端！ 那么前端开发到底需要学习些什么呢？...
[delphi]磁性窗体类，窗体跟随，窗体对齐（类似千千静听）
02-01
[delphi]磁性窗体类，窗体跟随，窗体对齐（类似千千静听/winamp），这个是模拟最好的类了（非控件）。
在DELPHI中通过RZPAGECONTROL实现类似IE8或傲游浏览器的多标签窗口功能
09-20
在DELPHI中通过RZPAGECONTROL（开发环境需安装RAIZE组件）实现类似IE8或傲游浏览器等的多标签窗口功能。 窗体采用动态创建方法，再多的窗体开发时都十分简单，只需在主窗体的FormCreate事件中添加RegisterClass(tform2)之类的代码即可。 压缩包中为完整代码和可执行文件。
磁性窗口制作
随矜而去 BLOG
01-29 511
private    { Private declarations }    procedure WMWINDOWPOSCHANGING(var msg:TWMWindowPosChanging);message WM_WINDOWPOSCHANGING;procedure TForm3.WMWINDOWPOSCHANGING(var msg: TWMWindowPosMsg);varwork
delphi多功能播放器
12-04
使用DELPHI开发的播放器，可进行播放器的各种操作，简单方便。
Javascript 两个窗体之间传值实现代码
10-29
众所周知window.open() 函数可以用来打开一个新窗口，那么如何在子窗体中向父窗体传值呢，其实通过window.opener即可获取父窗体的引用。
delphi 仿QQ窗体吸附
06-06
delphi 仿QQ窗体吸附 窗体悬浮吸附。可以实现，和QQ一样的功能
delphi 实现多个浮动透明窗口
03-01
delphi 实现多个浮动透明窗口，多个窗口相互独立，可以自由拉动，模拟迅雷浮动窗口。程序启动时显示主窗口，关闭时显示5个浮动透明窗口
Qt磁性窗口实现
08-12
Qt磁性窗口实现 Ubuntu10.04 Qt4.5.0
仿千千静听的磁性吸附窗体C#简单
03-16
摘要:C#源码,菜单窗体,磁性窗体,仿千千静听　C#仿千千静听的磁性吸附窗体简单源码，窗体做的比较粗糙，但主要是为了实现功能，像这种类似千千静听的吸附窗口，是比较实用的，现在很多的视频播放器，像PPStram、...
C#实现两个窗体之间数值传送的方法
01-20
本文实例讲述了C#实现两个窗体之间数值传送的方法。分享给大家供大家参考，具体如下： 以下是本人常用的方法，其实方法很多，但我觉得这两种我比较好理解，要是哪位朋友有比较简单的易懂的其他方法，希望不吝赐教。 ...
2014年311教育学专业基础综合答案解析.pdf
04-24
教育学考研，考研真题，全国硕士研究生统一考试教育学专业基础综合真题及解析，311历年真题，参考答案，答案解析。教育学统考。
大语言模型安全测试方法
04-24
4月16日联合国日内瓦总部万国宫，由世界数字技术院（WDTA）与云安全联盟大中华区（CSA GCR）联合主办第27届联合国科技大会AI边会上，世界数字技术院（WDTA）发布了两项具有重要意义的国际标准：“生成式人工智能应用安全测试标准”和“大语言模型安全测试方法”。这是国际组织首次在生成式AI应用安全、大模型安全领域发布国际标准，为业界提供了统一的测试框架，标准的发布将对人工智能领域产生深远影响，推动人工智能技术的安全、可靠发展。 这两大标准由云安全联盟大中华区研究院副院长黄连金带领的专家团队编制而成，他们来自CSA大中华区、OpenAI、蚂蚁集团、谷歌、微软、亚马逊、英伟达、OPPO、科大讯飞、百度、腾讯、加州大学伯克利分校、芝加哥大学、香港科技大学等数十家单位，体现了业界的广泛协作与集体智慧。 云安全联盟大中华区主席、世界数字技术院执行理事长李雨航院士发布时介绍，“生成式人工智能应用安全测试标准”为测试和验证生成式AI应用的安全性提供了一个框架，特别是那些使用大语言模型构建的应用程序。它定义了人工智能应用程序架构每一层的测试和验证范围，确保AI应用各个方面都经过严格的安全性和合规性
基于ssm电商网站的设计与实现(部署视频)_kaic.zip
04-24
目 录 目 录 1 绪论 1.1 研究背景 1.2 目的和意义 1.3 论文结构安排 2 相关技术 2.1 SSM框架介绍 2.2 B/S结构介绍 2.3 MYSQL数据库介绍 3 系统分析 3.1 系统可行性分析 3.1.1 技术可行性分析 3.1.2 经济可行性分析 3.1.3 运行可行性分析 3.2 系统性能分析 3.2.1 易用性指标 3.2.2 可扩展性指标 3.2.3 健壮性指标 3.2.4 安全性指标 3.3 系统流程分析 3.3.1 操作流程分析 3.3.2 登录流程分析 3.3.3 信息添加流程分析 3.3.4 信息删除流程分析 4 系统设计 4.1 系统概要设计 4.2 系统功能结构设计 4.3 数据库设计 4.3.1 数据库E-R图设计 4.3.2 数据库表结构设计 5 系统实现 5.1用户信息管理 5.2 商品信息管理 5.3商品分类管理 5.1商品资讯管理 6 系统测试 6.1 系统测试的特点  6.2 系统功能测试 6.2.1 登录功能测试 6.2.2 添加类别功能测试 6.3 测试结果分析 结 论 致 谢 参考文献
Comfast CF-924AC V3无线网卡驱动
最新发布
04-24
https://editor.csdn.net/md/?articleId=137978326文章对应USB 1300M无线网卡驱动，使用方式请参考博文。本驱动为博文对应的RDK X3平台所用，其它平台根据博文链接下载源码编译。
MVVMlight怎么实现两个窗体之间传值
06-02
在 `MVVM Light` 中，可以使用 `Messenger` 类来实现两个窗体之间的通信。`Messenger` 是 `MVVM Light` 框架提供的一种消息传递机制，它能够让不同的对象之间进行通信，而不需要相互持有引用。以下是一个示例代码，用于在两个窗体之间传递数据： 首先，在发送窗体中定义一个 `Message` 类型，并在构造函数中初始化该类型的对象： ```csharp public class MyMessage { public string Data { get; set; } } public partial class SenderWindow : Window { public SenderWindow() { InitializeComponent(); DataContext = this; // 初始化 Message 对象 var message = new MyMessage { Data = "Hello, World!" }; // 发送消息 Messenger.Default.Send(message); } } ``` 然后，在接收窗体中注册 `Messenger`，并在回调方法中处理接收到的消息： ```csharp public partial class ReceiverWindow : Window { public ReceiverWindow() { InitializeComponent(); DataContext = this; // 注册消息接收器 Messenger.Default.Register<MyMessage>(this, OnMessageReceived); } private void OnMessageReceived(MyMessage message) { // 处理接收到的消息 MessageBox.Show(message.Data); } } ``` 在上面的示例中，我们在发送窗体中创建了一个 `MyMessage` 对象，并通过 `Messenger` 发送了该对象。在接收窗体中，我们注册了一个接收器，用于接收 `MyMessage` 类型的消息。当发送窗体发送消息时，接收窗体中的 `OnMessageReceived` 方法会被回调，然后我们可以在该方法中处理接收到的消息。 需要注意的是，在接收窗体中注册 `Messenger` 时，需要在窗体关闭时注销接收器，以避免内存泄漏： ```csharp protected override void OnClosed(EventArgs e) { Messenger.Default.Unregister<MyMessage>(this); base.OnClosed(e); } ``` 以上是使用 `MVVM Light` 实现两个窗体之间传值的示例代码，希望能够对你有所帮助。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值