我想在delphi中把dbgrid网格的列宽按百分比分配单元格宽度,这样把做好的表格最大化时,网格也跟着按比例全屏显示,请问这个功能可以实现没??
解决方案 »
- 求购李维<5.x 分布式多层应用 系统篇>
- 【ADO删除出错!】up有分,马上结帖!
- ReadProcessMemory读出来的buf怎么用?一使用就错误!大家来看看!
- adoconnectstring的问题
- 请问怎样用Delphi程序取到Excel实际的最大行数和最大列数?
- excel问题?
- AUTOEXEC.BAT文件不会自动启动
- delphi 怎么把word,excel保存在数据库中
- 这个语句哪里错了?
- 一些空间厂商的CGI程序可以在线、即时开通注册域名或空间...Apache上比较好弄...可是在IIS上如何实现?
- 谁来帮我分析这段代码?
- 用delphi做一个和windows共享会话一样的程序
{ 返回?据网格自?适??度是否成功 }
var
I: Integer;
begin
Result := False;
if not Assigned(mDBGrid) then Exit;
if not Assigned(mDBGrid.DataSource) then Exit;
if not Assigned(mDBGrid.DataSource.DataSet) then Exit;
if not mDBGrid.DataSource.DataSet.Active then Exit;
for I := 0 to mDBGrid.Columns.Count - 1 do begin
if not mDBGrid.Columns[I].Visible then Continue; if Assigned(mDBGrid.Columns[I].Field) then
mDBGrid.Columns[I].Width := Max(mDBGrid.Columns[I].Field.Tag,
mDBGrid.Canvas.TextWidth(mDBGrid.Columns[I].Title.Caption)) + mOffset
else
mDBGrid.Columns[I].Width :=
mDBGrid.Canvas.TextWidth(mDBGrid.Columns[I].Title.Caption) + mOffset; mDBGrid.Refresh;
end;
Result := True;
end; { DBGridAutoSize }