1

Я создал таблицу TStringGrid. Как сделать выпадающий список с определенными значениями в ячейках, определенной колонки?

Если использовать DBGrid1, то там можно в конструкторе и свойствах всё задать, а вот тут я не знаю... И для DBGrid1 нужна БД, а тут нужно, чтоб пользователь заносил данные в таблицу, нажимал кнопку, эти данные собирались в пакет и отправлялись на сервер...

4
  • Delphi 7) Я видел пример как вставляли CheckBox в таблицу такого типа, но я много чего не понял, а вот как быть с выпадающим списком, вставлять ComboBox? 20 янв 2011 в 19:56
  • В qt не было разницы что вставлять в таблицу)
    – psyhitus
    21 янв 2011 в 16:00
  • Извините, а что это? и с чем его едят?)) 21 янв 2011 в 16:04
  • 1
    psyhitus, зачем писать про Qt в теме про Delphi? С таким же успехом можно до кучи написать, как это сделать в Java Swing, GWT, и т.д. А смысл? 21 янв 2011 в 16:15

1 ответ 1

2

Ок. Порыскал в инете и нашел один из вариантов.

procedure TForm1.FormCreate(Sender: TObject);
begin
    {Высоту combobox'а не изменишь, так что вместо combobox'а
       будем изменять высоту строки grid'а !}
    StringGrid1.DefaultRowHeight := ComboBox1.Height;
    {Спрятать combobox}
    ComboBox1.Visible := False;
    ComboBox1.Items.Add('ProgrammersForum');
    ComboBox1.Items.Add('Форум программистов Дельфи');
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    {Перебросим выбранное в значение из ComboBox в grid}
    StringGrid1.Cells[StringGrid1.Col,
    StringGrid1.Row] :=ComboBox1.Items[ComboBox1.ItemIndex];
    ComboBox1.Visible := False;
    StringGrid1.SetFocus;
end;
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
    {Перебросим выбранное в значение из ComboBox в grid}
    StringGrid1.Cells[StringGrid1.Col,
    StringGrid1.Row] :=ComboBox1.Items[ComboBox1.ItemIndex];
    ComboBox1.Visible := False;
    StringGrid1.SetFocus;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
              ARow: Integer; var CanSelect: Boolean);
var
    R: TRect;
begin
    if ((ACol = 3) AND (ARow <> 0)) then
        begin
            {Ширина и положение ComboBox должно соответствовать
                      ячейке StringGrid}
        R := StringGrid1.CellRect(ACol, ARow);
        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;

Источник.

Поработаю с этим вариантом. Возникнут вопросы, спрошу. Если у кого-то есть другие варианты или предложения, буду очень благодарен. Спасибо.

1
  • @ХэшКод примите ответ) Решение проблемы верное;)Спасибо) 22 фев 2011 в 16:29

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.