Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Вниз

Stringgrid & Combobox   Найти похожие ветки 

← →
tytus   (2003-01-09 20:52) [0]

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

---

← →
MBo   (2003-01-10 06:32) [1]

FAQ

---

← →
Groove   (2003-01-10 14:18) [2]

я делал так,
бросал на форму 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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c