Grid for TPanels

[ArtGrek]

есть ли такая таблица(Grid), в которую можно поместить TPanel

что б можно было удалять ячеику с TPanel, что б был Index у каждои ячеики
ато я намучился с координатами(Left) в ScrollBox

[asmodey1]

Есть, но DBCtrlGrid.

[ArtGrek]

а как вставлять TPanel? через Canvas?

[asmodey1]

Нет, просто бросить TPanel на DBCtrlGrid...

[ArtGrek]

уточню
1_TScrollBox //на нем массив из:
2__TPanel //на нем
3___TImage
3___TCheckBox
3___TComboBox
3___TLabel
3___TSpinEdit
если заменить TScrollBox и TPanel на DBCtrlGrid, то он, то что красным не принимает

надо заменить TScrollBox, в принципе необходимости в TPanel у меня тоже нет, только для разделения остальных компонент
ато TPanel.Lef приходица так рашитывать, и дальнеишие рашеты вести 15 * S + 267 * ( S - 1 ) - TScrollBox.HorzScrollBar.Position)

[Stilet]

то он, то что красным не принимает

Верно. Присмотрись внимательно к тем двум буквам что Асмодей тебе выделил жирным

ИМХО: Создать фрейм с компонентами, которые требуются для повторения, а потом на панели или лучше на СкроллБоксе понасоздавать тучу этих фреймов с указанием каждому фрейму Align:=alTop. Тогда будет выглядеть как грид с компонентами.

[evg_m]

уточню
1_TScrollBox //на нем массив из:
2__TPanel //на нем
3___TImage
3___TCheckBox
3___TComboBox
3___TLabel
3___TSpinEdit

попробуй такую схему

TscrollBox
  TPanel align:=alLeft
     Tframe align:=altop (можно Tpanel)
         TImage
         TCheckBox
         TComboBox
         TLabel
         TSpinEdit
     Tframe align:=altop
           .......
     Tframe align:=altop
           ......
  TPanel align:=alLeft
      .......
  TPanel align:=alLeft
      .............
  TPanel align:=alLeft

[ArtGrek]

идея отличная, получилось похоже
вот только моргает силно перетаскиваемая панель

procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if PresP then
  begin
    TPanel(Sender).Left := TPanel(Sender).Left - (x2 - x);
    TPanel(Sender).Top := TPanel(Sender).Top - (y2 - y);
    Repaint;  //  без етого еше хуже вид
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
end;

--------------------------------------------------------------------------
добавил ето, результат нулевои

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TPanel(Sender).ControlStyle := TPanel(Sender).ControlStyle + [csOpaque];