摘要：
//poScreenCenter时，窗体会显示到主显示器的中央 MainForm.Position := poScreenCenter; function TGAEAMainForm.GetWorkArea(var R : TRect) : Boolean;var I : Integer;begin 阅读全文
posted @ 2018-10-02 14:59 ╰★张志峰★╮ 阅读(1612) 评论(0) 推荐(0) 编辑
摘要：
之前电脑用的双屏幕，后来改为了单屏幕，发现之前放到另一屏幕上的文件双击打开后看不到，似乎还停留在另一屏幕的位置处。 解决的方法如下： 1.打开对应的文件（此时不要点击其他地方，确保此文件获得焦点）； 2.At+空格，此时会在屏幕右上方出现一个操作提示，没有也没有关系； 3.按下M键，进行移动操作； 阅读全文
posted @ 2018-09-28 16:21 ╰★张志峰★╮ 阅读(1405) 评论(0) 推荐(0) 编辑
摘要：
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 772 ClientWidth = 635 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = '... 阅读全文
posted @ 2018-09-11 14:19 ╰★张志峰★╮ 阅读(1369) 评论(0) 推荐(0) 编辑
摘要：
https://blog.csdn.net/maxwoods/article/details/8592389 http://www.cnblogs.com/baoluo/archive/2011/04/14/2016377.html http://www.360doc.com/content/11/ 阅读全文
posted @ 2018-06-14 18:58 ╰★张志峰★╮ 阅读(458) 评论(0) 推荐(0) 编辑
摘要：
https://www.cnblogs.com/del/archive/2008/09/01/1281345.html 阅读全文
posted @ 2018-05-29 18:19 ╰★张志峰★╮ 阅读(275) 评论(0) 推荐(0) 编辑
摘要：
最近在做一个Delphi的项目，常常要设计软件的界面，需要将控件画成圆角矩形。在Delphi中将控件画成圆角效果，可使用CreateRoundRectRgn函数。在此写了一个通用的函数，只要在用到改变控件效果的地方，调用就OK了，函数如下：procedure TfrmTest.RoundContro 阅读全文
posted @ 2018-05-25 09:15 ╰★张志峰★╮ 阅读(1279) 评论(0) 推荐(0) 编辑
摘要：
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,DateUtils; ... //获取文件的创建时间 function GetFileCreationT 阅读全文
posted @ 2018-05-22 19:11 ╰★张志峰★╮ 阅读(906) 评论(0) 推荐(0) 编辑
摘要：
unit ColorButton; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, StdCtrls; type TColorButton = class(TButton) private //添加Color属性，默认clWhite { Private declara... 阅读全文
posted @ 2018-05-22 16:44 ╰★张志峰★╮ 阅读(1673) 评论(0) 推荐(0) 编辑