открывающийся список stringrid

[Ежик]

Добрый день. Помогите плиз. как можно реализовать открыввающийся список для ячейки в sringrid. заранее благодарю

[ImmortalAlexSan]

Попробуйте скомпоновать стринггрид и комбобокс, поищите в свойствах стринггрида свойство выделенное красным, и если в его выпадающем списке будет присутствовать комбобокс, отмечайте его, и проверьте запустив программу.
P.S. Всего лишь предположение.

[savva]

а просто listbox какой-нибудь замутить никак??

зачем обязательно делать через стринггрид?что за жестокие ограничения?:

[Ежик]

Сообщение от ImmortalAlexSan

Попробуйте скомпоновать стринггрид и комбобокс, поищите в свойствах стринггрида свойство выделенное красным, и если в его выпадающем списке будет присутствовать комбобокс, отмечайте его, и проверьте запустив программу.
P.S. Всего лишь предположение.

Спасибо за внимание но не получается к сожалению((

[Ежик]

Сообщение от savva

а просто listbox какой-нибудь замутить никак??

зачем обязательно делать через стринггрид?что за жестокие ограничения?:

мне нужно подобие таблице с изменяемым количеством строк, а для одного столбца возможность выбора значения для ячейки из списка. как иначе организовать как не в stringgride незнаю

[Ежик]

ааааа все вопрос закрыт

[Ежик]

вот такой возможен вариант решения.....

procedure TForm1.FormCreate(Sender: TObject);
begin
{Высоту у combobox не получится установить, поэтому мы будем}
{подгонять размер у грида под размер combobox!}
StringGrid1.DefaultRowHeight := ComboBox1.Height;
{Скрываем combobox}
ComboBox1.Visible := False;
end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
{Получаем выбранный элемент из ComboBox и помещаем его в грид}
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex];
ComboBox1.Visible := False;
StringGrid1.SetFocus;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
{Получаем выбранный элемент из ComboBox и помещаем его в грид}
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex];
ComboBox1.Visible := False;
StringGrid1.SetFocus;
end;

procedure TForm1.StringGrid1SelectCell(Sender : TObject; Col,
Row: Integer; var CanSelect: Boolean);
var
R: TRect;
begin
SGWriteRead.SendToBack;
if ((Col = 3) AND
(Row <> 0)) then begin
{Размер и расположение combobox подгоняем под ячейку}
R := StringGrid1.CellRect(Col, Row);
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;
//Определяем индекс
ComboBox1.ItemIndex := ComboBoxNumIndex(StringGrid1.Cells[3, ARow], ComboBox1.Items.Text);
//Показываем СomboBox
ComboBox1.Visible := True;
ComboBox1.SetFocus;
end;
CanSelect := True;
end;

// Ставим ComboBox в позицию текста который отбражен в StringGrid-е
Function ComboBoxNumIndex(TextGrid, TextCombo : String): Integer;
var
NumIndex: Integer;
begin
NumIndex := 0;
while Pos(#13#10, TextCombo) <> 0 do
begin
if Copy(TextCombo, 0, Pos(#13#10, TextCombo)-1) = TextGrid then break
else
begin
NumIndex := NumIndex + 1;
TextCombo := Copy(TextCombo, Pos(#13#10, TextCombo)+2, Length(TextCombo));
end;
end;
ComboBoxNumIndex := NumIndex;
end;

[savva]

эм, сделай допустим такую штуку

на двойной щелчёк по ячейки всплывала новая форма с нужным компонентом будь то listbox или что либо другое.
форму естественно делаешь маленькую и все.

[Ежик]

Сообщение от savva

эм, сделай допустим такую штуку

на двойной щелчёк по ячейки всплывала новая форма с нужным компонентом будь то listbox или что либо другое.
форму естественно делаешь маленькую и все.

я сначала хотел так сделать но решил остановится на combobox-е. так вроде не плохо. осталось картинки впихнуть как нибудь