06 2022 档案

摘要:效果要求: 一.当剪切板内容为字符串时,把内容输出到Edit控件上 二.当剪切板内容为图片里,输出到image控件上 引用单元: user Vcl.Clipbrd; { 功能函数常用的类型有以下三种: 文字:CF_TEXT =1 //字符,不包括文本文件 位图:CF_BITMAP =2 //截图,不 阅读全文
posted @ 2022-06-27 15:56 一曲轻扬 阅读(1178) 评论(0) 推荐(0) 编辑
摘要:【Delphi】限制窗体大小的最大值与最小值 QQ主窗体可以随意拉动,但在拉小时,会在达到某个最小 宽度或高度后无法再拉动,这里有2种方法: 1):使用VCL窗体控件的Constraints子组件,如下设置: procedure TForm1.FormCreate(Sender: TObject); 阅读全文
posted @ 2022-06-25 15:10 一曲轻扬 阅读(428) 评论(0) 推荐(0) 编辑
摘要:一,DELPHI第三方控件安装方法介绍1、对于单个控件,Componet–>install component..–>PAS或DCU文件–>install;2、对于带*.dpk文件的控件包,File–>Open(下拉列表框中选*.dpk)–>install即可;3、对于带*.bpl文件的控件包,In 阅读全文
posted @ 2022-06-22 09:06 一曲轻扬 阅读(1636) 评论(0) 推荐(1) 编辑
摘要:Option Compare Database Option Explicit ' 声明一个带事件的下拉框变量 Private WithEvents mcboSearch As ComboBox Private mblnAfterUpdate As Boolean ' 记录是否在AfterUpdat 阅读全文
posted @ 2022-06-20 09:54 一曲轻扬 阅读(102) 评论(0) 推荐(0) 编辑
摘要:我写了一个无边框的窗体.想通过pnlTop实现拖动窗体,与双击时最大化的功能. 最佳的解决方案如下: procedure TFMain.pnlTopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: I 阅读全文
posted @ 2022-06-17 19:42 一曲轻扬 阅读(432) 评论(0) 推荐(0) 编辑
摘要:屏幕分辨率: 宽: screen.WorkAreaWidth; 高: screen.WorkAreaHeight; 获取任务栏高度的方法有三种: 第一种:需要引用Windows单元 ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSyste 阅读全文
posted @ 2022-06-17 11:12 一曲轻扬 阅读(395) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示