请大家指教

Question

我想在dbgrid的某一列获得焦点时，让一个ｅｄｉｔ出现在它的区域里，输入的时候输入到edit里，可不知道ｅｄｉｔ的left、top、height、weith怎么获得，谁知道？？？？

Answer 1

var l_Rect:TRect;
begin
  l_Rect := TStringGrid(DBGrid1).CellRect(TStringGrid(DBGrid1).Col,TStringGrid(DBGrid1).Row);
  with edit1 do
  begin
    left := DBGrid1.Left+l_Rect.Left;
    Top := DBGrid1.Top+l_rect.Top;
    width := l_Rect.Right-l_Rect.Left;
    height := l_Rect.Bottom-l_rect.Top;
  end;
end;