摘要：假设cxgrid为cxMain,TableView为ViewSelData,现在要根据数据集的colColorMark来改变本行的颜色,则可在ViewSelData的OnCustomDrawCell写入if AViewInfo.RecordViewInfo.GridRecord.Values[colColorMark.Index] = null then Exit;case AViewInfo.RecordViewInfo.GridRecord.Values[colColorMark.Index] of 1: ACanvas.Brush.Color := $FF0080; 2: ACanvas 阅读全文

摘要：键值大全 日期：2004年8月31日 作者： 人气：147 查看:[大字体 中字体 小字体] 在keydown事件里面showmessage(inttostr(key));在keypress事件里面showmessage(key);就知道了。Form1.KeyPreview := True;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginShowmessage(IntToStr(Key));end;procedure TForm1.FormKeyPress(Sender: 阅读全文

摘要：一.参数类型 Object Pascal语言允许五种类型的参数（不是指参数的数据类型），分别是数值参数、常量参数、变量参数、无类型的参数、开放数组参数。 不管是哪一种参数类型，在调用过程或函数时，实参跟形参在个数上必须相同，在数据类型上必须赋值相容。-------------------------------------------------------------------------------- 数值参数 数值参数是一种最常见的参数，当调用过程或函数时，程序把实参的值复制一个副本，传递给数值参数，数值参数对过程或函数而言是局部变量，对数值 参数的修改不会直接改变实参的值。 注意：作 阅读全文

摘要：1。代码模板 ： CTRL+J 2。代码整块移动 ： CTRL+SHIFT+I（右移） CTRL+SHIFT+U（左移） 3。选中窗体 ： 先选中任一控件，SHIFT+鼠标左键 4。将鼠标指向变量名、单元名、类名，再用 CTRL+鼠标左键，可找到相应的说明 5。在过程、函数、事件内部， SHIFT+CTRL+向上的方向键 可跳跃到相应的过程、函数、事件的定义，相反，在过程、函数、事件的定义处，SHIFT+CTRL+向下的方向键 可跳跃到具体过程、函数、事件内部 CTRL+ SHIFT + C:编写申明或者补上函数. 用esc选择上层对象 SHIFT+CTRL+E 显示 EXPLORER ，我觉 阅读全文

摘要：在TdxDBTreeView控件的OnEditing事件中写入AllowEdit := CheckEdit; //CheckEdit为判断的函数 阅读全文

摘要：在TdxDBTreeView控件的OnKeyDown事件中写入if Key = VK_F2 thenbegin if DBTreeMain.DBSelected = nil then Exit; DBTreeMain.DBSelected.EditText;end; 阅读全文

摘要：利用TdxDBTreeView控件(此处设为DBTreeMain)时,可以从表中直接显示出树结构,有时需要拖动对节点进行排序,而且数据表中有字段SortCode用于排序码,此时需要编写对应代码,步骤如下1.先设置DBTreeMain的DragMode属性为dmAutomatic2.设置DBTreeMain的StateIndexField属性为SortCode3.在其OnEndDragTreeNode事件中写入var m: TNodeAttachMode; oldOption: TdxDBTreeViewOptions; node: TdxDBTreeNode; bm: TBookmarkStr 阅读全文

摘要：cxgrid单击某一网格事件,可在ViewTable的KeyPress事件中判断if Key = #32 thenbegin if Trim(colname.EditValue) = '' then colcode.FocusWithSelection //else // colReqNum.Editing := True;end; 阅读全文

摘要：1.去掉cxgrid或dxdbgrid的分组标题行设置TableView中的optionview中的GroupByBox为False2.设置排序字段打开TableView中，看到右边的字段，单击要分组的字段名，设置其GroupIndex为0,1等(默认值-1不分组)3.自动过滤设置与禁止设置TableView中的OptionsCustomize中的ColumnFiltering为True时自动过滤，False为禁止过滤CxGrid使用小结(续) ======================================================================== 激活 阅读全文

摘要：假设cxgrid为cxMain,TableView为ViewSelData,现在要根据数据集的colColorMark来改变本行的颜色,则可在ViewSelData的OnCustomDrawCell写入if AViewInfo.RecordViewInfo.GridRecord.Values[colColorMark.Index] = null then Exit;case AViewInfo.RecordViewInfo.GridRecord.Values[colColorMark.Index] of 1: ACanvas.Brush.Color := $FF0080; 2: ACanvas 阅读全文

摘要：unit uPrinter;interfaceuses Printers, types, Windows, Classes, SysUtils, Forms;function CharHeight: Word;function AvgCharWidth: Word;function GetPhicalPaper: TPoint;function PaperLogicSize: TPoint;function HVLogincRatio: Extended;function GetOffSetX: Integer;function GetOffSetY: Integer;function MmT 阅读全文

摘要：一、窗体二、代码窗体代码:unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,BleepInt;type TForm2 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; procedure Button1Click(Se 阅读全文

摘要：一、直接用ADO连接Excel直接用ADOQuery连接，其ConnectionString设为Provider=microsoft.jet.oledb.4.0;data source=C:\\2.xls;Extended Properties='Excel 8.0',HDR=Yes;IMEX=1'SQL属性：select * from [Result$] where month(addtime)>'6'二、借助SQL SERVER的OpenDataSource函数使用adoquery控件constcConstr='Provider=SQL 阅读全文

摘要：一、DTS简介DTS为导入导出模块，在SQL SERVER中有专门的导入导出工具二、调用SQL SERVER导出的包若要执行保存为COM结构化的存储文件DTS包，使用dtsrun /Ffilename /Npackage_name /Mpackage_password若要执行保存在SQL SERVER msdb中的DTS包，使用dtsrun /Sserver_name /Uuser_name　/Ppassword /Npackage_name /Mpackage_password若要执行保存在Meta Data Services中的DTS包，使用:dtsrun /Sserver_name /U 阅读全文

摘要：var stl:TStringList; i:integer;begin stl :=TStringList.Create;stl.Delimeter :='|'; stl.DelimetedText :='1|2|3|4|5|'; for i:=0 to stl.Count-1 do mmo1.lines.add(stl[i]);stl.Free; end;Delphi中自带ExtractStrings实现字符分割，如将'1|2|3|4|'分割到TStringList中(1,2,3,4),可用ExtractStrings(['1' 阅读全文

摘要：一.由于Delphi本身没有正则表达式单元,可以引用vbscript来使用正则表达式,步骤为1.在project中单击Import Type Library,选中Microsoft VBScript Regular Expression 5.5(version 5.5)2.单击"Create Unit"按钮,生成Unit单元二.新建一工程,导入上面生成的单元(在uses中引用该单元)新建一按钮,在其单击事件中写入var reg:TRegExp; re:boolean;begin reg:=TRegExp.Create(nil); reg.Pattern :='^$& 阅读全文

摘要：一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin if (ActiveControl is TDBGrid) then abort; end; 阅读全文

摘要：function HtmlHelpA(hwndcaller:Longint;lpHelpFile:string;uCommand:Longint;dwData:string):HWND;stdcall;external 'hhctrl.ocx'例句:HtmlHelpA(self.handle,ExtractFilePath(Application.ExeName)+'pbtool.chm',0,'gaishu.html'); 阅读全文

摘要：procedure TForm1.Edit2KeyPress(......);beginif not (key in [#8,'0'..'9',DecimalSeperator]) thenbeginkey :=#0;endelsebeginif (key=DecimalSeperator) and (Pos(key,Edit2.Text)>0) thenbeginkey :=#0;end;end;end; 阅读全文

摘要：SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_NUMBER); 阅读全文