| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как привязать Combobox к StringGrid? [D6, Win2k]

AFrolov ©   (2002-09-06 13:47:00) 

Этот код помещает 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 16:14:00) [1]

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

---

kronprince   (2002-09-06 16:02:00) [2]

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

---

Рыжик   (2002-09-06 15:26:00) [3]

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

---

MBo   (2002-09-06 15:23:00) [4]

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

---

Рыжик   (2002-09-06 14:51:00) [5]

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

---

MBo   (2002-09-06 14:36:00) [6]

OnTopLeftChanged

---

AFrolov   (2002-09-06 14:29:00) [7]

???

---

Наверх