摘要：I have figured it out. In Project Options -> Delphi Compiler -> Output - C/C++ menu the setting C/C++ Output File generation DEFAULTS to Generate all
阅读全文
posted @ 2021-01-29 19:28
随笔分类 - Delphi
摘要：unit TransparentPanel; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls; type ...
阅读全文
posted @ 2019-03-25 18:10
摘要：/////////////////////// 参数说明 ////////////////////// //h:窗体中控件的句柄（用在某个控件上提示消息）（要调用的控件句柄） //text:要提示的文本 //cap:提示框上的标题 //IconType:提示框上显示的图标（共三个值。1、2、3分别为
阅读全文
posted @ 2018-11-26 15:57
摘要：procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息 procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息
阅读全文
posted @ 2018-11-19 13:45
摘要：Delphi 获取当前鼠标下的控件内容 主要函数： GetCursorPos；//获取鼠标的位置 WindowFromPoint；//获取制定point下的handle GetClassName；//获取类的名字 function TForm1.GetEditText: string;var Poi
阅读全文
posted @ 2018-11-15 16:19
摘要：这样可以引用外部控件，还是比较方便
阅读全文
posted @ 2018-11-13 10:30
摘要：//poScreenCenter时，窗体会显示到主显示器的中央 MainForm.Position := poScreenCenter; function TGAEAMainForm.GetWorkArea(var R : TRect) : Boolean;var I : Integer;begin
阅读全文
posted @ 2018-10-02 14:59
摘要：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
摘要：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
摘要：https://www.cnblogs.com/del/archive/2008/09/01/1281345.html
阅读全文
posted @ 2018-05-29 18:19
摘要：最近在做一个Delphi的项目，常常要设计软件的界面，需要将控件画成圆角矩形。在Delphi中将控件画成圆角效果，可使用CreateRoundRectRgn函数。在此写了一个通用的函数，只要在用到改变控件效果的地方，调用就OK了，函数如下：procedure TfrmTest.RoundContro
阅读全文
posted @ 2018-05-25 09:15
摘要：uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,DateUtils; ... //获取文件的创建时间 function GetFileCreationT
阅读全文
posted @ 2018-05-22 19:11
摘要：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
摘要：//参考如下代码～～uses Clipbrd;function StringGridSelectText(mStringGrid: TStringGrid): string;var I, J: Integer; S: string;begin Result := ''; if not Assigne
阅读全文
posted @ 2018-05-11 14:34
摘要：常数名称 十六进制值 十进制值 对应按键 VK_LBUTTON 01 1 鼠标的左键 VK_RBUTTON 02 2 鼠标的右键 VK-CANCEL 03 3 Ctrl+Break(通常不需要处理) VK_MBUTTON 04 4 鼠标的中键（三按键鼠标) VK_BACK 08 8 Backspac
阅读全文
posted @ 2018-01-16 14:19
摘要：keybd_event(TextToShortCut('ctrl+s'), 0, 0, 0); LockWindowUpdate(Self.Handle); try GetCursorPos(OldPt); NewPt:=Point(0, 0); Windows.ClientToScreen(App
阅读全文
posted @ 2018-01-16 11:07
摘要：= 'Repeat %s(&' + #32 + ')'; //设置快捷键 这个是设置空格的 如果设置字符， 就可以这样写= 'Repeat %s(&H)‘ const SRepeatCmdCaption_TME = 'Repeat %s(&' + #32 + ')'; //设置快捷键 SRepeat
阅读全文
posted @ 2017-12-18 17:43
摘要：假如一个有一个TEdit的实例edt_Position，edt_Position所在容器有好几层，所在的窗体为frmMain。现要弹出一个FORM，FORM的容器为frmMain,弹出的位置在edt_Position的下面，并且左边对齐，如何做呢？ 首先将edt_Position的坐标转换为屏蔽坐标
阅读全文
posted @ 2017-12-13 08:42
摘要：GetKeyState(VK_CAPITAL) & 0x00010x8000 是键有否按下0x0001 是键的翻转状态 var bF1Down: Boolean;begin bF1Down := (GetKeyState(VK_SPACE) and $8000 > 0);
阅读全文
posted @ 2017-12-12 13:33