zwk_9的专栏

以下代码在delphi7.0地下调试通过，仅适合于DBGrid中的列与ADOQuery中的字段相互对应的情况 procedure TfrmPattern_Add.DBGridDetailKeyDown(Sender: TObject;   var Key: Word; Shift: TShiftState);var  i: Integer;begin  case Key

<br />使用showmodal函数时时出现如下错误：<br /><br /> <br /> <br />（1）首先在project的options中，将子窗口改为不自动创建，即“Available forms”。<br />（2）根据showModal函数定义可知，如果窗体是MDIChild的话,是不可以ShowModal的，而且 ShowModal时，要求Visiable=False,假使你设置为Visiable=True就会产生错误，而子窗体设置为MDIChild时Visiable自动设置为True

（1）通过ODBC＋ADO的方式连：    with ADOCon1 do    begin       Close;      ConnectionString:=( DRIVER={MySQL ODBC 5.1 Driver}; +                                  SERVER=192.168.1.107; +                 

uses ComObj； implementation  Const NET_FW_IP_PROTOCOL_UDP = 17;  Const NET_FW_IP_PROTOCOL_TCP = 6;  Const NET_FW_SCOPE_ALL = 0;  Const NET_FW_SCOPE_LOCAL_SUBNET = 1;procedure TForm1.Button1C

问题描述：新建delphi工程，在Form1中放置Panel1控件，并在Panel1中并排放置Label1和Edit1控件。要求：1. 拖动鼠标时，Label1和Edit1会随鼠标而动，但其相对位置不变；2. Label1和Edit1始终在Panel1的边界内移动。代码：var  G_Can_Move: boolean;  //用于控制只有当鼠标按下时才能移动  G_X, G_Y: int

1.  将DbgridEh的Option里面的dgRowSelect和dgMultiSelect设为true，即可按住ctrl选择多行，但是这样的话不允许修改单元格   2. 如果要在“允许选择多行”和“允许修改单元格”两种状态之间切换，可使用如下代码：   //允许选择多行但不允许修改单元格 DBGridDetail.Options :=[gTitles,dgIndicator,dgColumn

简单两句，搞定!  BtnClearFormula.Caption:= 清 #13空;  setwindowlong(self.BtnClearFormula.Handle, gwl_style, getwindowlong(self.BtnClearFormula.Handle,gwl_style) or bs_multiline);

在dll中使用FastReport会遇到以下内个问题：1.调用时变量出错，最普通的一个变量注入也是一样2.出现Cannot assign a TFieldList to a TStringList的错误3.Invalid pointer operation的错误，在函数中返回WideString引起的以下是解决办法：1.不要在DLL中直接引用FastReport的单元文件，最好用一个接口类来实现

 不用自己写代码！DBGrideh实现自动排序:1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性Titl

（1）在界面的OnActive事件中，procedure TfrmTech_Material.FormActivate(Sender: TObject);begin  self.KeyPreview:= true;end; （2）在界面的OnKeydown事件中，procedure TfrmTech_Material.FormKeyDown(Sender: TObjec

（1）在欢迎界面（welcome单元）中添加时钟控件Timer1，设置恰当的interval值，并在其OnTimer事件中添加如下代码：procedure TfrmWelcome.Timer1Timer(Sender: TObject);begin   frmWelcome.Close;   Timer1.Enabled:= false; end;  （2）在工程文件中

<br /><br />1.windows的path路径中增加D7的路径<br />在启用delphi7时，要能加载dclIndyCore70.bpl这个文件<br />如果是自动安装，这个文件会拷到C:/windows/system32/dclIndyCore70.bpl,所以不用改path<br />2.delphi7菜单中Library路径中<br />添加indy10/LIB路径下的System、Core、Protocols下的三个目录<br />添加indey10/D7 因为这个目录下有bpl和d