delphi只获取文件名（不带扩展名） ExtractFileName(ChangeFileExt(FileName,''));...
listbox删除 删除选中的某个： procedureTForm1.Button1Click(Sender:TObject); vari:integer; begin i:=0; whileilistbox1.Countdo//删除掉前一个后，下一个会上移，所以用while iflistbox1.selected[i]then listbox1.Items.del...
在dbgrid1cellclick事件尾部加入 formname.focuscontrol(webbrowser1); 例如下： procedure form1.dbgrid1cellclick(column: tcolumn) var oldcur:tcursor; begin oldcur := screen.cursor; screen.cursor :=crhourglass; form1.focuscontrol(webb...
uses Math; function DBGridRecordSize(mColumn: TColumn): Boolean; { 返回记录数据网格列显示最大宽度是否成功 } begin Result := False; if not Assigned(mColumn.Field) then Exit; mColumn.Field.Tag := Max(mColumn.Field.Tag, TDBG...
大多数程序设计的爱好者选择并使用Delphi来编写软件，都是被其中丰富而功能强大的VCL控件所吸引。Delphi自带的数据感知(Data-Aware)控件，更是成为开发MIS软件的程序员之首选。在那么多...
DBGrid的CellClick事件，单击当前行记录的那一行时，不发生。 原因：由于单击当前行记录时，DBGrid进入编辑状态。相当于双击了DBGrid。 处理：将DBGrid的Option属性中的dgEditing置为False。...
procedure TForm1.DBGrid2DblClick(Sender: TObject); begin edit3.Text:=DBGrid2.SelectedField.asstring; end;...
procedure TForm1.Button1Click(Sender: TObject); var Data : TDataSet; ADBGrid: TDBGrid; i, j : integer; ExcelApp:Variant; begin DBGrid1.Enabled:=false; ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.add; ExcelApp.Column...
Delphi之所以能在.net与Java“两座大山”重压之下，至今仍被广大编程爱好者喜爱、支持，究其原因，除了VCL框架设计精妙之外，强大的数据库程序开发能力也是其长盛不衰的关键因素之...
最全面的DBGrid标题排序实现方法： procedure TSrv_SJSetForm.DBGridEh1TitleClick(Column: TColumnEh);var s,cFieldName:string; i:integer; DataSet:TDataSet; procedure setTitle; var ii:integer; cStr:string; c:TColumnEh; begin for ii:=...