- 博客(22)
- 资源 (7)
- 收藏
- 关注
RSS订阅转载 显示数据库时数字保留１位小数等
Tfloatfield(query1.fieldbyname(your_field)).displayformat := #0.00 procedure Tfrm_main.DBGxxDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TG
2008-09-30 18:57:00
2438
1
转载 让Delphi的标准TStatusBar状态栏控件具有容器功能
Delphi中的标准TStatusBar没有再它上面添加控件的功能，继承它，创建一个新的控件，拥有容器功能。 新的StatusBar可以在它上面添加如进度条等其他控件，拥有容器功能。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ unit ControlStatusBar; interfaceuses Windows, Messages, SysUtils,
2008-09-29 11:54:00
1040
转载 程序开机启动
procedure Check_AutoRun(CheckBox1: TCheckBox; StrRegName: String; StrRegValue: String); var RegMy : Tregistry; //定义变量RegMy begin RegMy := Tregi
2008-09-28 09:56:00
417
转载 查找有多少个串口
uses registry procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; st: Tstrings; i: Integer; begin reg := TRegistry.Create; try reg.Roo
2008-09-28 08:29:00
689
原创 delphi 如何设置快捷键之2
设置全局快捷键type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TFo
2008-09-22 09:09:00
1384
转载 delphi 多热键注册
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) pro
2008-09-12 10:24:00
872
转载 SQL 收藏------------SQL操作全集
SQL操作全集 下列语句部分是Mssql语句，不可以在access中使用。 SQL分类： DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK) 首先,简要介绍基础语句： 1、说明：创建数据库 CREATE DATAB
2008-09-12 08:37:00
512
转载 使用IdIPWatch后，产生iphist.dat，并非病毒
使用IdIPWatch后，产生iphist.dat，并非病毒！作者:yejuncheng 日期:2008-08-02大家去百度搜一下iphist.dat，会发现基本都说它是由病毒产生的，难道我也中毒了？怎么可能，呵呵~ 经过一翻查找解决了该问题。运行程序时没问题，当关闭程序后便产生了iphist.dat文件，这是由于使用了IdIPWatch，并未去修改它的相关参数所致，自然它的默认设置
2008-09-12 08:28:00
4024
2
转载 delphi建立快捷方式
unit uSC; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj, ActiveX, ShlObj, Registry;
2008-09-12 08:26:00
593
转载 10以上串口的打开
主要是在這段有問題hNewCommFile := CreateFile( PChar(FCommName), GENERIC_READ or GENERIC_WRITE, 0, {not shared}
2008-09-05 10:10:00
473
原创 AT发送短信时的长度计算
AT+CMGS=后边的数字为：去掉短信中心后所要发送的所有字节数。如：00 01 03 0D 91 685149008794F4 0000 发送的实际字节长度（十六进制00） 发送变换后的字符串CMGS长度为第一个00为中心号。就是00 后边的所有的字节数和
2008-08-29 16:48:00
1435
转载 delphi热键定义及应用
type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TForm1; id,i
2008-08-26 08:37:00
572
转载 打开文件软件与图标相配置
{------------------------------------------------------------------------------- @过程名: slpert -> TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述： @参数: FileExt, Filetype, FileDescrip
2008-08-22 16:40:00
595
转载 MAPX中修改图元的属性值
procedure TForm1.Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1, Y1, X2, Y2, Distance: Double; Shift, Ctrl: WordBool; var EnableDefault: WordBool);Var i : Integer; fID : String; search
2008-08-07 13:25:00
1764
原创 delphi 内存清理的好方法
procedure ClearMemory;beginif Win32Platform = VER_PLATFORM_WIN32_NT thenbeginSetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);application.ProcessMessages;end;end;DELPHI清理释放内存小代码
2008-07-14 11:15:00
6224
1
转载 从内存中加载DLL (修正版)
从内存中加载DLL (修正版)2008-06-17 19:09 转载地址: http://www.freshbug.com/archives/39 ======================================================
2008-07-09 10:01:00
2419
转载 Delphi多线程编程
Delphi多线程编程2007-03-19 17:41 1-1 多线程的基本概念 WIN 98/NT/2000/XP 是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU 运行时间和资源，或者说，把CPU 时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂
2008-07-09 09:54:00
986
转载 delphi 中使用Tmscomm
Delphi 中TMsComm控件使用指南2008-07-08 15:10 l 注册TMsComm控件 1.将Mscomm.srg, Mscomm32.ocx,Mscomm3
2008-07-09 09:43:00
1535
转载 delphi 自身快捷键
Delphi热键 1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样) 2.Shift+F8 调试时弹出CPU窗口。 3.Shift+F10 等于鼠标右键（Windows快捷键）。 4.Shitf+箭头 选择 5.shift +F12
2008-07-09 09:35:00
527
转载 delphi程序中定义热键
Delphi定义热键2007-03-20 08:34 用到3个API函数 BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers,
2008-07-09 09:30:00
760
原创 delphi 使edit只能输入带小数点的数值或整数
procedure Tfrm_zdrw.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (((key>=0) and (key<=9)) or (key=.) or (key=#8)) then begin key:=#0; end else i
2008-06-27 15:26:00
2831
原创 delphi中DoubleBuffered用途
许多人在用delphi编写时会遇到屏幕闪烁的情况.如果窗体或控件等有DoubleBuffered属性并将其设置成true则可以减少闪烁.
2008-06-10 15:23:00
3861
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人