读书人

新人求教有没办法让edit1追随并覆盖

发布时间: 2013-03-16 11:51:46 作者: rapoo

新人求教,有没办法让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;

读书人网 >.NET

热点推荐