| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как к ячейкам TStringGrid привязать TCombobox [D5]
Antoniz © (2002-06-18 10:07:00)Как к ячейкам TStringGrid привязать TCombobox.
MBo (2002-06-18 10:14:00) [1]6) Выбор значения в ячейке StringGrid из ComboBox
sg1: TStringGrid;
cb1: TComboBox;
procedure TForm1.sg1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
R: TRect;
begin
if ARow =1 then begin
R := SG1.CellRect(ACol, ARow);
cb1.left := R.Left+ SG1.Left+1;
cb1.top := R.Top + sg1.top+1;
cb1.Width := sg1.ColWidths[acol];
// cb1.Tag:=ACol+65536*ARow;
cb1.Visible := True;
cb1.SetFocus;
end;
CanSelect := True;
end;
procedure TForm1.cb1Change(Sender: TObject);
begin
{SG1.Cells[cb1.Tag mod 65536,cb1.tag div 65536]:=
cb1.Items[cb1.itemindex];}
SG1.Cells[SG1.Col, SG1.Row]:=
cb1.Items[cb1.itemindex];
cb1.visible:=false;
end;
procedure TForm1.cb1Exit(Sender: TObject);
begin
cb1.visible:=false;
end;
procedure TForm1.sg1TopLeftChanged(Sender: TObject);
var
R: TRect;
begin
// R := SG1.CellRect(cb1.Tag mod 65536,cb1.tag div 65536);
R := SG1.CellRect(SG1.Col, SG1.Row);
cb1.left := R.Left+ SG1.Left+1;
end;
Kaban (2002-06-18 10:10:00) [2]В FAQ видел пример, или на королевстве
| |
