- 博客(6)
- 收藏
- 关注
RSS订阅原创 在Delphi中的Access技巧集
1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库) 以下代码在WIN2K,D6,MDAC2.6下测试通过, 编译好的程序在WIN98第二版无ACCESS环境下运行成功。 //在之前uses ComObj,ActiveX //声明连接字符串 Const SConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;
2008-05-17 20:51:00
705
原创 使你的窗体保留在桌面的最上面
当我们想让一个窗体保留在桌面的最上面时，可以定义窗体的FormStyle属性，使窗体保持在最上面。但是，使用这种方法后，在切换窗体的模式时，窗体将闪烁。为了避免切换窗体模式时的闪烁，可以使用Windows API函数SetWindowPos来解决这一问题，使用方法如下： SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,
2008-05-17 20:47:00
432
原创 还未结束就能把自身删除的程序delphi版
procedure DeleteSelf;varpExitProcess: Pointer;pDeleteFile: Pointer;pUnmapViewOfFile: Pointer;hModule: THANDLE;cBuf:array[0..MAX_PATH]of Char;beginhModule := GetModuleHandle(kernel32);if hModule begi
2008-05-17 20:45:00
387
原创 Delphi的“动态窗体”技术实际应用
Delphi的“动态窗体”技术实际应用 在Delphi可视化设计环境中，允许程序员在代码编辑器中以文本的方式浏览和修改DFM文件内容。当用File/Open命令直接打开DFM文件或者选择窗体设计窗口的弹出式菜单上的View as Text命令时，就会在编辑器中出现文本形式的信息。在一些资料中将这种文本形式称之为窗体设计脚本。Delphi提供的这种脚本编辑功能是对Delphi可视化设计的一大补充。当
2008-05-17 20:43:00
431
1
转载 /////////////////////通用子窗体开关
/////////////////////通用子窗体开关procedure OpenForm(FormClass: TFormClass; var AForm; AOwner:TComponent=nil);var i: integer; Child:TForm;begin for i := 0 to Screen.FormCount -1 do if Screen.Forms
2004-08-31 15:21:00
674
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人