摘要：在把控件的HideSelection的属性置成false就可以了
阅读全文
posted @ 2011-09-19 17:45
随笔分类 - Delphi
摘要：DelPhiLockWindowUpdate的函数的用法Application.ProcessMessages;LockWindowUpdate(Self.Handle);//锁住当前窗口LockWindowUpdate（0）//解除锁定窗口LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendM
阅读全文
posted @ 2011-09-19 17:08
摘要：if RzCheckTree_DW.ItemState[I] = csChecked then
阅读全文
posted @ 2011-09-19 16:44
摘要：在DBgridEh的ColumnDefsValues的Tile的Alignment的属性设置成TCenter，这样Tile就是居中了。
阅读全文
posted @ 2011-09-16 16:15
摘要：我遇到 NativeXML 在它的一个节点的属性上面写入属性，但是当读出的值中包含汉字的时候出现了乱码。检查代码如下NativeXml := TNativeXml.Create;try NativeXml.EncodingString := 'GB2312';// 'UTF-8'; NativeXml.Utf8Convert := True; NativeXml.BinaryEncoding := xbeBinHex; NativeXml.Clear; NativeXml.LoadFromFile(strFilePath); RootNode := Native
阅读全文
posted @ 2011-09-07 09:36
摘要：类方法也分私有和公有方法之分，下面是具体代码unit Unit2;interfaceuses Windows, Forms, Dialogs;type TA = class private class procedure aa; public class procedure bb; end;implementationclass procedure TA.aa;begin showmessage('aa');end;class procedure TA.bb;begin showmessage('bb');end;unit Unit1;interfaceuses
阅读全文
posted @ 2011-08-31 17:00
摘要：ShellExecute(0, 'open', PChar(strRepDir + strRepFileName), nil, nil, SW_SHOW); //打开word文档
阅读全文
posted @ 2011-08-30 11:43
摘要：unit U_WordConst; interface {*******Word窗体状态************} const wdWindowStateNormal = $00000000; {普通状态} {*******域的位置状态************} const wdCollapseStart = $00000001; wdCollapseEnd = $00000000; {*******方向单元操作************} const wdCharacter = $00000001; wdWord = $00000002; wdSentence = $0000000...
阅读全文
posted @ 2011-08-29 09:55
摘要：日期：2005年12月4日 作者：archonwang 人气：1580 查看:[大字体 中字体 小字体] 【实现 DBGridEh 隔行分色显示】procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;AFont: TFont; var Background: TColor; State: TGridDrawState);begin if DBGridEh1.SumList.RecNo mod 2 = 1 then Background := $00FFC4C4 else Backgrou...
阅读全文
posted @ 2011-08-26 15:53
摘要：dbgrideh颜色设置(2010-06-30 10:30:59)转载标签：杂谈（1）分行不同颜色设置；在DBGridEh1DrawColumnCell中写； if ADOQuery1.RecNo mod 2=0 then begin DBGridEh1.Canvas.Font.Color := clRed; DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGridEh1.Canvas.Font.Color := clGreen; DBGridEh1.DefaultDrawColum
阅读全文
posted @ 2011-08-26 15:28
摘要：Delphi Ole操作Word，判断是否有打开的文档，并且给关闭。Function ChkWordIsOpen(const AFullFileName: string): boolean;var WordApp: variant; CurrDoc: variant;begin Result := False; WordApp := GetActiveOleObject('word.Application'); CurrDoc := WordApp.documents.Open(AFullFileName, Revert:=true, Visible := true ); Cu
阅读全文
posted @ 2011-08-25 13:22
摘要：ChangeFileExt(strFullFileName, '.Doc');
阅读全文
posted @ 2011-08-24 15:28
摘要：Delphi CreateProcess WIN32API函数CreateProcess用来创建一个新的进程和它的主线程，这个新进程运行指定的可执行文件2010-12-27 17:00:17|分类： Delphi |标签： |字号大中小订阅CreateProcess百科名片WIN32API函数CreateProcess用来创建一个新的进程和它的主线程，这个新进程运行指定的可执行文件。目录函数原型参数返回值举例说明 C代码 C++代码函数原型参数返回值举例说明 C代码 C++代码展开 编辑本段函数原型 BOOL CreateProcess ( LPCTSTR lpApplication...
阅读全文
posted @ 2011-08-23 11:55
摘要：Grid.DateTimePicker.format := 'yyyy-MM-dd';就可以了。设置 DateSeparator := '-'; ShortDateFormat := 'yyyy-MM-dd';对TAdvSpreadGrid表格来说，不起作用。
阅读全文
posted @ 2011-08-04 17:53
摘要：delphi组件] TOpenDialog 用于显示一个“文件选择”对话框1．TOpenDialog组件的典型用法“打开”对话框是用TOpenDialog组件实现的，TOpenDialog组件是非可视组件。 Filter属性用于设置文件过滤器，让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号“.”按钮，打开“Filter.Editor”对话框，在“Filter.Name”栏键入关于过滤器的简短说明，在“Filter”栏键入通配符，在设计期，把“打开”对话框组件加到窗体上，看到的是TOpenDialog组件的图标，只有调用对话框的Execute方法，才能在运行期看到真正的
阅读全文
posted @ 2011-08-04 14:51
摘要：在Project|Options中的Compiler（编译）对话框中编译器的扩展语法（Extended Syntax）项禁止了或在编译的时候用了{$X-},则隐含变量Result不起作用。
阅读全文
posted @ 2011-08-04 10:55
摘要：unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TEnum = (One, Two, Three
阅读全文
posted @ 2011-08-03 11:46
摘要：等角圆锥投影 指在地图上没有角度变形的圆锥投影。它是德国数学家兰勃脱所拟定，故又称兰勃脱正形圆锥投影，由于这种投影是一圆锥切割地球的两条标准纬线，又称双标准纬线等角圆锥投影。很多中纬度国家和地区多采用这种投影来编制中、小比例尺地图。在图上，为了保持等角条件，必须使图上任一点的经线比与纬线比相等。圆锥面展平后，经线为交于圆心的直线束，但经线之间的夹角小于纬线呈同心圆弧，纬线的间距从中间向南向北逐渐增大。同一纬线上的经线间隔相等。在绘制我国地图时，多以25°N和47°N作为标准纬线，离开标准纬线愈远，面积变形愈大。我国的分省地图边多采用这种投影。中学使用的地图册中，中国地理的所
阅读全文
posted @ 2011-08-03 09:26
摘要：Delphi动态数组也是生存期自动管理的，当离开动态数组的作用域的时候，他会自动清除内存，不需要你手动清除。但是你也可以手动清除，只需要 Array := nil; 就可以了。var A1, A2: array of string;begin SetLength(A1, 1); A1[0] := 'aaa'; A2 := A1; A2[0] := 'bbb'; ShowMessage(A1[0]);end;打印出来的结果是“bbb”我的理解是 A2 := A1 这个并不是新建一个数组，只是把A1数组的引用给了A2，这样A1,A2同时指向这个内存区域，当修改A2数
阅读全文
posted @ 2011-08-02 14:44
摘要：ShortString的长度不能超过255个字符，String就是AnsiString类型。String是生存期自动管理类型的。var s: string[8];这样就自动变成了ShortString类型了。一个小例子：设置Projects->Options的Complier中勾选range check，在运行的时候下面代码会报出Erange ERR这样的错误，没有勾选不会报错，但是会出现诡异的数据。因为超出了你定义的长度。var s: string[8]; i: Integer;begin i := 10; s[i] := 'a';end;
阅读全文
posted @ 2011-08-01 16:31