StringGrid, CheckBox

[Руслан240892]

всем добрый день ( Ех, если бы((( )
Помогите, пожалуйста!!
1) мне надо чтоб в одной ячейке StringGrid-a помещались несколько выбранных Комбоксов
2) и при каждом нажатии на батон Ок добавлялись новые заявки..тут думаю массив нужен, но а я пока еще не силен в них
Буду признателен за помощь!!!


Вот примерно так

procedure TForm5.Button1Click(Sender: TObject);
var
f1:string;
begin
F1:=datetostr(DateTimePicker1.Date) ;
StringGrid1.Cells[0, 1] :=F1;
StringGrid1.Cells[1, 1] :=maskedit1.Text;
StringGrid1.Cells[2, 1] :=ComboBox1.Items[ComboBox1.ItemIndex];
StringGrid1.Cells[3, 1] :=ComboBox8.Items[ComboBox8.ItemIndex];
StringGrid1.Cells[4, 1] :=ComboBox2.Items[ComboBox2.ItemIndex];
StringGrid1.Cells[5, 1] :=ComboBox9.Items[ComboBox9.ItemIndex];
StringGrid1.Cells[6, 1] :=ComboBox10.Items[ComboBox10.ItemIndex];
StringGrid1.Cells[7, 1] :=Edit2.Text;

Все работает!
1)Но вот только надо чтоб несколько комбоксов поместились в одной ячейке!
2)А при каждом нажатии на ОК новые заявки попадали в стринггрид

[Пепел Феникса]

нечего кросспостить.

[Stilet]

надо чтоб в одной ячейке StringGrid-a помещались несколько выбранных Чекбоксов.

Для этого нужно либо в OnDrawCell отрисовывать эти чекбоксы, либо использовать какие нить навороченные компоненты типа RX или NextGrid.
Ну мона собсно и свою прогу написать для этого.
Выглядеть это может так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses       contnrs,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var   cbs:TComponentList;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer; cb:TCheckBox;
begin
 cbs:=TComponentList.create;
 for i:=1 to 10 do begin
  cb:=TCheckBox.Create(self);
  cb.Parent:=self;
  cb.Caption:=IntToStr(i);
  cb.Height:=12;
  cbs.Add(cb);
 end;
 StringGrid1.ColCount:=1;
 StringGrid1.RowCount:=5;
 StringGrid1.DefaultRowHeight:=50;
end;

procedure TForm1.FormPaint(Sender: TObject);
var j,i:integer; aRect: TRect;
begin
 i:=0; j:=0;
 while i<4 do begin
  arect:=StringGrid1.CellRect(0,i);
  with TCheckBox(cbs[j]) do begin
   Top:=aRect.Top+StringGrid1.Top;
   Left:=aRect.Left+StringGrid1.Left;
   Width:=aRect.Right-aRect.Left;
  end; inc(j);
  arect:=StringGrid1.CellRect(0,i);
  with TCheckBox(cbs[j]) do begin
   Top:=aRect.Top+Height+StringGrid1.Top;
   Left:=aRect.Left+StringGrid1.Left;
   Width:=aRect.Right-aRect.Left;
  end; inc(j);
  inc(i) ;
 end;
end;


end.

[Руслан240892]

Спасибо за помощь!
Но я оказывается перепутал себя и Вас со своим вопросом!(((
Вот каким должен был быть вопрос:

1) мне надо чтоб в одной ячейке StringGrid-a помещались несколько выбранных Комбоксов
2) и при каждом нажатии на батон Ок добавлялись новые заявки..тут думаю массив нужен, но а я пока еще не силен в них
Буду признателен за помощь!!!


Вот примерно так

procedure TForm5.Button1Click(Sender: TObject);
var
f1:string;
begin
F1:=datetostr(DateTimePicker1.Date) ;
StringGrid1.Cells[0, 1] :=F1;
StringGrid1.Cells[1, 1] :=maskedit1.Text;
StringGrid1.Cells[2, 1] :=ComboBox1.Items[ComboBox1.ItemIndex];
StringGrid1.Cells[3, 1] :=ComboBox8.Items[ComboBox8.ItemIndex];
StringGrid1.Cells[4, 1] :=ComboBox2.Items[ComboBox2.ItemIndex];
StringGrid1.Cells[5, 1] :=ComboBox9.Items[ComboBox9.ItemIndex];
StringGrid1.Cells[6, 1] :=ComboBox10.Items[ComboBox10.ItemIndex];
StringGrid1.Cells[7, 1] :=Edit2.Text;

Все работает!
1)Но вот только надо чтоб несколько комбоксов поместились в одной ячейке!
2)А при каждом нажатии на ОК новые заявки попадали в стринггрид

Помогите, пожалуйста!!

[Serge_Bliznykov]

1)Но вот только надо чтоб несколько комбоксов поместились в одной ячейке!

не совсем понял, что Вы подразумеваете под этим...

так, что ли (всё валим в одну ячейку)?

var CurRow : integer;
begin
  StringGrid1.RowCount :=  StringGrid1.RowCount + 1;
  CurRow := StringGrid1.RowCount - 1;

  StringGrid1.Cells[0, CurRow] := datetostr(DateTimePicker1.Date) ;
  StringGrid1.Cells[1, CurRow] :=maskedit1.Text;
  StringGrid1.Cells[2, CurRow] :=ComboBox1.Items[ComboBox1.ItemIndex] + ' ' +;
        ComboBox8.Items[ComboBox8.ItemIndex] + ' ' +
        ComboBox2.Items[ComboBox2.ItemIndex];
  StringGrid1.Cells[3, CurRow] :=ComboBox9.Items[ComboBox9.ItemIndex] + ' ' + 
         ComboBox10.Items[ComboBox10.ItemIndex];
  StringGrid1.Cells[4, CurRow] :=Edit2.Text;

[Stilet]

чтоб несколько комбоксов поместились в одной ячейке!

вопрос в лоб - а зачем ты стринггрид для этого выбрал?
Может лучше использовать Frame, в котором можно нарисовать компонентами карточку, и по мере добавления записей создавать новые фреймы типа этой карточки с выравниванием alTop?
Это будет похоже на грид, но без мороки с стринггридом.

[Руслан240892]

да, да точно!

StringGrid1.Cells[2, CurRow] :=ComboBox1.Items[ComboBox1.ItemIndex] + ' ' +; (только здесь это лишнее по-моему)
ComboBox8.Items[ComboBox8.ItemIndex] + ' ' +
ComboBox2.Items[ComboBox2.ItemIndex];
спасибо!!! Теперь понял! а можно же туда ввести не просто пробелы а через отступ?! #13 типа этого?)

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

вопрос в лоб - а зачем ты стринггрид для этого выбрал?
Может лучше использовать Frame, в котором можно нарисовать компонентами карточку, и по мере добавления записей создавать новые фреймы типа этой карточки с выравниванием alTop?
Это будет похоже на грид, но без мороки с стринггридом.

Я просто со стринггрида в Excel сохраняю! а так, как вы говорите, я не знаю(((

Согласен "Чайник"!!!

Вот как все у меня выглядит

[Stilet]

Согласен "Чайник"

Причем тут чайник или кофейник?
Ты просто повникай в то как работать с панелями и фреймами. Примеры посмотри.

[Руслан240892]

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

Причем тут чайник или кофейник?
Ты просто повникай в то как работать с панелями и фреймами. Примеры посмотри.

Хорошо! Объязательно!!!

[fastergus2dog]

СтринГрид должен иметь функцию добавления данных, но вот чтобы добавить два ComboBox то это надо написать определенный алгорытм.