癫狂编程

摘要： 恢复内容开始 Lazarus 使用 Free Pascal 的编译器，支持 Object Pascal 语言，与 Delphi 高度兼容，并看做后者的自由软件替代品。 Lazarus 下载与安装 我们先去 Lazarus 官网下载 http://www.lazarus-ide.org/ Window 阅读全文

摘要： Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus都可以运行。最新版本能运行于Linux，Win32和Mac OS。整个界面的外观和操作和Delphi IDE一样，因此，如果你会使用Delphi的话，用起Lazarus IDE来就一定 阅读全文

摘要： procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取 end; //ADOQuery的OnFetchProgress事件 procedure TF 阅读全文

摘要： 本例效果图: 代码文件: 窗体文件: 阅读全文

摘要： procedure SaveBmpAsIcon(const Bmp: TBitmap; const Icon: string; const SmallIcon: Boolean; const Transparent: Boolean; const X, Y: Integer); // Bmp : Bitmap图片 // Icon : 最终输出的icon文件全路径... 阅读全文