StringGrid

← →
VEZ (2006-01-24 14:04) [0]

Нужно вставить в ячейку грида спинэдит, самый простой способ конечно подставить спинэдит под координаты ячейки, как правильно вычислить эти координаты.

← →
Yanis © (2006-01-24 14:41) [1]

function CellRect(ACol, ARow: Longint): TRect;
При помощи этой функции можно узнать положение клетки относительно "сетки". А дальше делай с этими координатами что пожелаешь.

← →
EvS (2006-01-24 14:42) [2]

Delphi Help

CellRect method (TDrawGrid)
Returns the screen coordinates of a cell in the grid.

Delphi syntax:

function CellRect(ACol, ARow: Longint): TRect;

TRect defines a rectangle

TRect = packed record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;

← →
VEZ (2006-01-24 14:46) [3]

Дак это понятно, но там координаты-то относительно чего выдаются, надо пересчитать координаты сспинэдита относительно них.

← →
Yanis © (2006-01-24 14:55) [4]

hopeless case

← →
Yanis © (2006-01-24 15:16) [5]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var p: TPoint; begin with StringGrid1 do begin P := Point(CellRect(ACol, ARow).Left, CellRect(ACol, ARow).Top); Caption := Format("Left %d, Top %d", [P.X, P.Y]); SpinEdit1.Width := StringGrid1.ColWidths[ACol] + GridLineWidth; SpinEdit1.Height := StringGrid1.RowHeights[ARow] + GridLineWidth; SpinEdit1.Left := P.X + GridLineWidth + 1 + Left; SpinEdit1.Top := P.Y + GridLineWidth + 1 + Top; end; end;
Помоему внедрение компонентов делается немного не так...

Используй XStringGrid. Бсплатный, с исходниками. Там это уже встроено.
http://www.eye.ch/~mduerig/prog/

← →
VEZ (2006-01-24 17:04) [7]

XStringGrid и использую, только он немного глючный и неудобный, и спинэдит там только целые значения понимает.

> VEZ (24.01.06 17:04) [7]
> XStringGrid и использую, только он немного глючный и неудобный,
> и спинэдит там только целые значения понимает.

Посмотри, как это сделано в исходниках того-же XStrinGrid или DBGridEh (из EhLib) и сделай сам по аналогии.

StringGrid Найти похожие ветки