摘要：
Delphi中，自定义消息处理过程与Windows消息处理过程的定义是一样的。1.主用步骤：1>. 首先定义一个消息标识符常量；如：WM_MYMessage = WM_USER+ 5；（标识符常量的取值范围为WM_USER~WM_APP-1） 2>. 在单元文件中定义消息响应过程和消息标识符常量。 阅读全文
摘要：
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.DateUtils, Vcl.Cont 阅读全文
摘要：
CREATE OR REPLACE Function GetSumTime(InDT Number) Return VarChar2 is Result VarChar2(40);Begin --已过期 If InDT <= 0 Then Result := '已过期'; Else --核算 天 小 阅读全文
摘要：
procedure TForm1.lv1DragDrop(Sender, Source: TObject; X, Y: Integer);var aItem, bItem: TListItem;begin if(Source is TListView) then begin bItem := (So 阅读全文
摘要：
procedure TForm1.Button6Click(Sender: TObject);var i:Integer;str:string;begin i := 255; ShowMessage(IntToHex(i,8)); ShowMessage(Format('%.10x',[i])); 阅读全文
摘要：
1.通过函数转 function Base64ToStr1(const Base64: string): string;var I, J, K, Len, Len1: Integer; B4: array[0..3] of Byte;begin if Base64 = '' then begin R 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin cbb1.Items.Clear; cbb1.Items.AddObject('a',TObject(NewStr('a1'))); cbb1.Items.AddObject('b',TObje 阅读全文
摘要：
var hwnd : Integer;begin --其实源控件只要设置焦点就可以了 DBGridEh1.SetFocus; hwnd := FindWindow('Form1', nil); // 关键要获得获取信息的控件的句柄 SetForegroundWindow(hwnd); keybd_e 阅读全文
摘要：
TDBGridEh 允许在选定的区域上进行选择记录，列以及矩形区域等操作： ×允许多选会影响下面这些属性： Options 选项中的 dgMultiSelect 属性 - 设置是否允许多选。 Options 选项中的 dghClearSelection 属性- 设置在用户移到下一个单元时是否清除已选 阅读全文
摘要：
Delphi通过Map文件查找内存地址出错代码所在行 一 什么是MAP文件 什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。 如果要查找代码 阅读全文