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

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

Stringgrid & Combobox [WinME]

tytus ©   (2003-01-09 20:52:00) 

Добрый вечер. Подскажите как по одному клику на ячейке stringgrid в ней (по ее размерам) появлялся combobox?

---

Groove   (2003-01-10 14:18:00) [1]

я делал так,
бросал на форму StringGrid и Combobox
Combobox.Visible:=false;

затем в обработчиках писал

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
r:TRect;
begin
r:=StringGrid1.CellRect(ACol,ARow);
ComboBox1.Visible:=true;
ComboBox1.Top:=r.Top+StringGrid1.Top;
ComboBox1.Left:=r.Left+StringGrid1.Left;
ComboBox1.Height:=r.Bottom-r.Top;
ComboBox1.Width:=r.Right-r.Left;
end;

procedure TForm1.StringGrid1Exit(Sender: TObject);
begin
ComboBox1.Visible:=false;
end;

---

MBo   (2003-01-10 06:32:00) [2]

FAQ

---

Наверх