Как привязать Combobox к StringGrid?

← →
AFrolov © (2002-09-06 13:47) [0]

Этот код помещает Combobox в нужную ячейку StringGgrid. Однако при скролинге StringGgrid"а Combobox остается там где был а не перемещается вместе с ячейкой. Как еого лучше привязать к ячейке, что бы они смотрелись как единое целое?

Заранее спасибо.
procedure TForm1.FormCreate(Sender: TObject); begin {Высоту у combobox не получится установить, поэтому мы будем} {подгонять размер у грида под размер combobox!} StringGrid1.DefaultRowHeight := ComboBox1.Height; {Скрываем combobox} ComboBox1.Visible := False; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin {Получаем выбранный элемент из ComboBox и помещаем его в грид} StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; ComboBox1.Visible := False; StringGrid1.SetFocus; end; procedure TForm1.ComboBox1Exit(Sender: TObject); begin {Получаем выбранный элемент из ComboBox и помещаем его в грид} StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; ComboBox1.Visible := False; StringGrid1.SetFocus; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean); var R: TRect; begin if ((Col = 3) AND (Row <> 0)) then begin {Размер и расположение combobox подгоняем под ячейку} R := StringGrid1.CellRect(Col, Row); R.Left := R.Left + StringGrid1.Left; R.Right := R.Right + StringGrid1.Left; R.Top := R.Top + StringGrid1.Top; R.Bottom := R.Bottom + StringGrid1.Top; ComboBox1.Left := R.Left + 1; ComboBox1.Top := R.Top + 1; ComboBox1.Width := (R.Right + 1) - R.Left; ComboBox1.Height := (R.Bottom + 1) - R.Top; {Показываем combobox} ComboBox1.Visible := True; ComboBox1.SetFocus; end; CanSelect := True; end;

← →
AFrolov © (2002-09-06 14:29) [1]

???

← →
MBo © (2002-09-06 14:36) [2]

OnTopLeftChanged

← →
Рыжик © (2002-09-06 14:51) [3]

Можно поместить StringGrid в ScrollBox, запретить ScrollBars у StringGrid, подогнать размер ScrollBoxa под StringGrid, и туда помещать ComboBox

← →
MBo © (2002-09-06 15:23) [4]

>поместить StringGrid в ScrollBox
Это лишнее, изменение положения Combo в OnTopLeftChanged решает проблему

← →
Рыжик © (2002-09-06 15:26) [5]

Можно и так, не спорю. А если в ScrollBox-е, то и кода писать не надо, всё само будет прокручиваться.

>Рыжик
- умничка :)

Большое спасибо за подсказку.

Как привязать Combobox к StringGrid? Найти похожие ветки