Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизStringGrid + ComboBox Найти похожие ветки
← →
MBo (2002-02-02 10:37) [1]на основе из какого-то Faq
procedure TForm1.FormCreate(Sender: TObject);
begin
Combo.Visible := False;
Combo.Items.add("Вася");
Combo.Items.add("Петя");
Combo.Items.add("Саша");
StringGrid1.DefaultRowHeight := Combo.Height;
StringGrid1.Col:=0;
end;
procedure TForm1.ComboChange(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:=Combo.Items[Combo.ItemIndex];
Combo.Visible := False;
StringGrid1.SetFocus;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol = 1 then begin
Combo.Width := StringGrid1.ColWidths[1] ;
Combo.Left := StringGrid1.Left + StringGrid1.CellRect(1,ARow).Left + 1;
Combo.Top := StringGrid1.Top + StringGrid1.CellRect(1,ARow).Top + 1;
Combo.Tag := ARow;
Combo.Visible := true;
Combo.SetFocus;
end;
CanSelect := True;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c