木木的专栏

procedure   TForm1.Button1Click(Sender:   TObject);             var                     AppExcel:variant;     begin             AppExcel:=CreateOleObject(Excel.Application);             AppExcel.v

 (*//标题:处理数据网格的编辑框说明:示例添加焦点颜色 ; 获取还没有提交到数据集的字段文本设计:Zswang日期:2002-03-31//*)///////Begin Sourcefunction GetDBGridEdit(mDBGrid: TDBGrid): TEdit;var  I: Integer;begin  Result := nil;  if not Assigned(