随笔分类 -  Delphi 进阶 - 编码技巧

摘要：linux上没有提供用户态的内存指针读写安全检测函数，这里使用异常包来简单实现IsBadReadPtr： {$IFDEF UNIX} function IsBadReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall; begin try while ucb>0 阅读全文

摘要：在手机APP开发中， 纵向的滚动框非常实用，可以说是必不可少的控件，甚至为了自适应不同手机屏幕大小，使用滚动框是非常方便的懒人方法。 当我们使用TVertScrollBox控件时，发现除了控件内部封装好的自动化的触控滚动，还有一个方法ScrollBy可以调整滚动条位置，但实际中我们发现，Scroll 阅读全文

摘要：在开发过程中，一个程序(DLL/EXE)经常需要同时兼容不同版本的Windows(XP、WIN7 ...)，但是由于新版本的Windows某些API在旧版本不存在，如果程序使用external引入API，则会导致在旧版本Windows中运行时提示“找不到某某程序文件路径...”、"无法加载DLL.. 阅读全文

摘要：有些lazarus在new中创建的library无法引用lcl库，会提示找不到forms单元等， 导致无法创建可视化程序，如创建带窗体的DLL，可以按照以下步骤解决： 1.创建一个Application2.打开project source3.将标识program修改成library 4.去掉程序be 阅读全文

摘要：QQ主窗体可以随意拉动，但在拉小时，会在达到某个最小 宽度或高度后无法再拉动，这里有2种方法： 1）：使用VCL窗体控件的Constraints子组件，如下设置： procedure TForm1.FormCreate(Sender: TObject);begin //设置窗体容器高度和宽度大小的最 阅读全文

摘要：参考 SysUtils中TLanguages里面的技巧 { This stores the languages that the system supports } TLanguages = class private FSysLangs: array of TLangRec; function L 阅读全文