张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  delphi 屏幕

delphi程序全屏显示无标题栏覆盖整个屏幕

摘要：delphi 简单实现程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，具体代码如下，感兴趣的朋友可以参考下哈 delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 复制代码 代码如下: procedure TMainFrm.FormCreate( 阅读全文

posted @ 2016-06-17 18:49 ╰★张志峰★╮ 阅读(403) 评论(0) 推荐(0)

Delphi7 实现窗体全屏方法

摘要：设置要全屏的窗体的ALign 属性为ALcLient ，此法最快。当然对我来说，我并不知道这个，所以走了远路，等后来在实现窗体禁止移动的时候才想到了这里，汗。注意：这种全屏方式不会挡了系统的任务栏。。。。同时可以防止窗体移动， 方法二： 用代码控制。在窗体的创建事件中，此方法运行后窗体也可以移动。影 阅读全文

posted @ 2016-06-17 18:47 ╰★张志峰★╮ 阅读(3756) 评论(0) 推荐(0)

Delphi自动适应屏幕分辨率的属性

摘要：这是个困惑我很长时间的问题，到今天终于得到解决了。 话说Delphi有个很强的窗体设计器，这一点让VC粉丝垂涎三尺而不可得。但是，Delphi里设计的窗体并没有自动适应屏幕分辨率的属性,也就是说，软件设计时调整完美的窗体控件布局，在不同屏幕分辨率的机器上运行时可能会变得面目全非。控件之间会相互移位， 阅读全文

posted @ 2016-05-30 16:29 ╰★张志峰★╮ 阅读(1298) 评论(0) 推荐(1)

Delphi 实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题

摘要：给你一段代码，网上转的：unit uMyClassHelpers;//实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题。// 陈小斌，2012年3月5日interfaceUses SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, 阅读全文

posted @ 2016-05-30 15:31 ╰★张志峰★╮ 阅读(2367) 评论(0) 推荐(1)

delphi获得当前鼠标坐标

摘要：简单的说就是取鼠标所在位置对应的窗口句柄?procedure TForm1.Timer1Timer(Sender: TObject);vara:TPoint; //用来存放坐标hw:HWND; //用来存放窗口句柄begin GetCursorPos(a); //取得鼠标坐标,并存放进a中 hw : 阅读全文

posted @ 2016-03-02 13:39 ╰★张志峰★╮ 阅读(2237) 评论(0) 推荐(0)