转贴
zhlfdm
爱好体育活动
展开
-
delphi 自身快捷键
Delphi热键 1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样) 2.Shift+F8 调试时弹出CPU窗口。 3.Shift+F10 等于鼠标右键(Windows快捷键)。 4.Shitf+箭头 选择 5.shift +F12转载 2008-07-09 09:35:00 · 496 阅读 · 0 评论 -
让Delphi的标准TStatusBar状态栏控件具有容器功能
Delphi中的标准TStatusBar没有再它上面添加控件的功能,继承它,创建一个新的控件,拥有容器功能。 新的StatusBar可以在它上面添加如进度条等其他控件,拥有容器功能。 ==================================== unit ControlStatusBar; interfaceuses Windows, Messages, SysUtils,转载 2008-09-29 11:54:00 · 989 阅读 · 0 评论 -
显示数据库时数字保留1位小数等
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 · 2402 阅读 · 1 评论 -
查找有多少个串口
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 · 661 阅读 · 0 评论 -
使用IdIPWatch后,产生iphist.dat,并非病毒
使用IdIPWatch后,产生iphist.dat,并非病毒!作者:yejuncheng 日期:2008-08-02大家去百度搜一下iphist.dat,会发现基本都说它是由病毒产生的,难道我也中毒了?怎么可能,呵呵~ 经过一翻查找解决了该问题。运行程序时没问题,当关闭程序后便产生了iphist.dat文件,这是由于使用了IdIPWatch,并未去修改它的相关参数所致,自然它的默认设置转载 2008-09-12 08:28:00 · 3952 阅读 · 2 评论 -
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 · 490 阅读 · 0 评论 -
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 · 831 阅读 · 0 评论 -
delphi建立快捷方式
unit uSC; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj, ActiveX, ShlObj, Registry;转载 2008-09-12 08:26:00 · 558 阅读 · 0 评论 -
10以上串口的打开
主要是在這段有問題hNewCommFile := CreateFile( PChar(FCommName), GENERIC_READ or GENERIC_WRITE, 0, {not shared}转载 2008-09-05 10:10:00 · 447 阅读 · 0 评论 -
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 · 541 阅读 · 0 评论 -
打开文件软件与图标相配置
{------------------------------------------------------------------------------- @过程名: slpert -> TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述: @参数: FileExt, Filetype, FileDescrip转载 2008-08-22 16:40:00 · 576 阅读 · 0 评论 -
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 · 1732 阅读 · 0 评论 -
delphi 中使用Tmscomm
Delphi 中TMsComm控件使用指南2008-07-08 15:10 l 注册TMsComm控件 1.将Mscomm.srg, Mscomm32.ocx,Mscomm3转载 2008-07-09 09:43:00 · 1485 阅读 · 0 评论 -
从内存中加载DLL (修正版)
从内存中加载DLL (修正版)2008-06-17 19:09 转载地址: http://www.freshbug.com/archives/39 ======================================================转载 2008-07-09 10:01:00 · 2360 阅读 · 0 评论 -
delphi程序中定义热键
Delphi定义热键2007-03-20 08:34 用到3个API函数 BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers,转载 2008-07-09 09:30:00 · 678 阅读 · 0 评论 -
delphi 内存清理的好方法
procedure ClearMemory;beginif Win32Platform = VER_PLATFORM_WIN32_NT thenbeginSetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);application.ProcessMessages;end;end;DELPHI清理释放内存小代码原创 2008-07-14 11:15:00 · 6163 阅读 · 1 评论 -
Delphi多线程编程
Delphi多线程编程2007-03-19 17:41 1-1 多线程的基本概念 WIN 98/NT/2000/XP 是个多任务操作系统,也就是:一个进程可以划分为多个线程,每个线程轮流占用CPU 运行时间和资源,或者说,把CPU 时间划成片,每个片分给不同的线程,这样,每个线程轮流的“挂转载 2008-07-09 09:54:00 · 950 阅读 · 0 评论 -
程序开机启动
procedure Check_AutoRun(CheckBox1: TCheckBox; StrRegName: String; StrRegValue: String); var RegMy : Tregistry; //定义变量RegMy begin RegMy := Tregi转载 2008-09-28 09:56:00 · 391 阅读 · 0 评论