首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

新人求教,有没办法让edit1追随并覆盖DBGrid的某2-3个单元格的位置

2013-03-16 
新人求教,有没办法让edit1跟随并覆盖DBGrid的某2-3个单元格的位置。有没办法让edit1跟随并覆盖DBGrid的某2-

新人求教,有没办法让edit1跟随并覆盖DBGrid的某2-3个单元格的位置。
有没办法让edit1跟随并覆盖DBGrid的某2-3个单元格的位置,让人看起来象合并单元格一样,因为DBGrid并没有合并单元格的功能。

比如:获得 DBGrid的第2个单元格的位置和高度,然后让EDIT移动到那里,覆盖2-3格,这样看起来就象合并单元格了。
[解决办法]
如下,你稍微修改下即可:


procedure TfmMain.DBGrid1CellClick(Column: TColumn);
var
  iCol,iRow:Integer;
  rRect:TRect;
begin
  iCol := TDrawGrid(DBGrid1).Col;
  iRow := TDrawGrid(DBGrid1).Row;
  rRect := TDrawGrid(DBGrid1).CellRect(iCol,iRow);
  ShowMsg(IntToStr(rRect.Left) +'--'+ IntToStr(rRect.Top));
  Edit1.Left := DBGrid1.Left + rRect.Left;
  Edit1.Top := DBGrid1.Top + rRect.Top;
  Edit1.Width := rRect.Right - rRect.Left;
  Edit1.Height := rRect.Bottom - rRect.Top;
end;

热点排行