摘要：
假如一个有一个TEdit的实例edt_Position，edt_Position所在容器有好几层，所在的窗体为frmMain。现要弹出一个FORM，FORM的容器为frmMain,弹出的位置在edt_Position的下面，并且左边对齐，如何做呢？ 首先将edt_Position的坐标转换为屏蔽坐标 阅读全文
posted @ 2017-12-13 08:42 ╰★张志峰★╮ 阅读(1044) 评论(0) 推荐(0) 编辑
摘要：
GetKeyState(VK_CAPITAL) & 0x00010x8000 是键有否按下0x0001 是键的翻转状态 var bF1Down: Boolean;begin bF1Down := (GetKeyState(VK_SPACE) and $8000 > 0); 阅读全文
posted @ 2017-12-12 13:33 ╰★张志峰★╮ 阅读(850) 评论(0) 推荐(0) 编辑
摘要：
procedure TTMEImageDeviceIdentifyFrom.DrawText(AImage : TImage; AFile: string);var I: Integer; iWidth, iHeight: Integer; oInfo: TTextInfoAry; oRect, R 阅读全文
posted @ 2017-11-09 19:10 ╰★张志峰★╮ 阅读(1997) 评论(0) 推荐(0) 编辑
摘要：
procedure ResizeBmp(Src,Dst:String);var SrcBM,DstBM:TBitMap; Rect:TRect; NewW,NewH,PicW,PicH:Integer; HDivW:Double;begin SrcBM:=TBitMap.Create; SrcBM. 阅读全文
posted @ 2017-11-09 18:36 ╰★张志峰★╮ 阅读(764) 评论(0) 推荐(0) 编辑
摘要：
procedure ImageDrawText(ATextEdo: IGGCCADTextEDO); var oImageBitmap: TBitmap; x1,x2,y1,y2: double; begin // 加载图片 oImageBitmap := TBitmap.Create; try o 阅读全文
posted @ 2017-11-08 18:10 ╰★张志峰★╮ 阅读(560) 评论(0) 推荐(0) 编辑
摘要：
http://blog.csdn.net/qq_30501909/article/details/50720227 阅读全文
posted @ 2017-10-31 14:23 ╰★张志峰★╮ 阅读(162) 评论(0) 推荐(0) 编辑
摘要：
http://www.cnblogs.com/bhlsheji/p/4713522.html GLScene开源库Delphi基于提供OpenGL的3D框架。由GLScene组件，您可以轻松地创建和渲染你的3D幕后。令人奇怪的是，。对于这样一个很好的开源库。该网络无法找到完整的安装说明，甚至GLSc 阅读全文
posted @ 2017-10-31 13:56 ╰★张志峰★╮ 阅读(933) 评论(0) 推荐(0) 编辑
摘要：
unit TMEModelImputForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, 阅读全文
posted @ 2017-10-27 15:57 ╰★张志峰★╮ 阅读(920) 评论(0) 推荐(0) 编辑
摘要：
完全自定义窗体风格的实现 最小化到任务栏postmessage(Self.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); 最大化或还原procedure Tf_MainForm.RzToolButton1Click(Sender: TObject);var abd: TAp 阅读全文
posted @ 2017-10-27 10:11 ╰★张志峰★╮ 阅读(256) 评论(0) 推荐(0) 编辑