StringGrid+ComboBox?

← →
faost © (2004-07-15 17:07) [0]

Нужно, чтоб слева был список слов (допустим в StringGrid с о одной колонной), а справа от каждого слова был ComboBox. В ручную компоненты не рассатвишь - количество слов заранее не известно, тем более не умещается на экран.

← →
clickmaker © (2004-07-15 17:09) [1]

Необязательно же сразу расставлять все комбобоксы. Он ведь требуется тока в момент выбора из конкретной ячейки наверно?

← →
faost © (2004-07-15 17:16) [2]

Ну да

← →
faost © (2004-07-15 17:17) [3]

Ну я сделал сначала, чтоб сначала выбирается конкретная ячейка, затем уже в комбо буксе, который сверху лежит. Но начальник сказал, что нужно именно так (как я выше написал).

← →
clickmaker © (2004-07-15 17:29) [4]

ComboBox.Parent := Grid;
R := Grid.CellRect(Col, Row);
ComboBox.BoundsRect := R;

← →
faost © (2004-07-15 17:44) [5]

Вроде все работает, только как то мерцает (это ладно). Только теперь ComboBox не раскрывается...

← →
faost © (2004-07-15 17:48) [6]

Я еще по другому попробовал сделать:
cbImport.Top := ARow*sgMain.DefaultRowHeight + sgMain.Top+ARow;
Но так при скроллинге Грида Комбо теряется естественно, а события Грида OnMouseWheelDown и Up почему-то не работают (они же вроде отвечают за скроллинг)

← →
faost © (2004-07-15 18:01) [7]

ComboBox.Parent := Grid; R := Grid.CellRect(Col, Row); ComboBox.BoundsRect := R;

clickmaker, так почему ж не работает после этого ComboBox?

Делайте таблицу как "Инспектор объектов" в Delphi - понадобится
таблица из 2-х колонок и 1 ComboBox, который позиционируется в
соседней, с выбранной, ячейке. У меня Ваш код работает прекрасно.
Var R:TRect; begin ComboBox.Parent := Grid; R := Grid.CellRect(1, Row); ComboBox.BoundsRect := R; .... end;

Спасибо, вродеб тоже все пашет.

Теперь не работает
procedure TfmImport.cbImportChange(Sender: TObject); begin sgMain.Cells[1, StrToInt(lbCell.Caption)] := cbImport.Text; end;

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