Вставка столбца в StringGrid

[artemavd]

Как в StringGrid-е разбить один столбец например на четыре подстолбца? И как узнать номер ячейки полученных подстолбцов? Например если разбиваемый столбец имеет номер [0,0], то какие номера будут имееть подстолбцы? Икак можно вставить в дюбое место таблицы еще один столбец как бы "разорвав" саму таблицу?

[Баламут]

Чуть ниже в этой же ветке расположена тема

http://www.programmersforum.ru/showthread.php?t=23863
Посмотри на нее внимательно.

[artemavd]

Там написано как удалить строки, а мне надо наоборот вставить столбцы!)

[_Dmitry]

Можно так:

type   
  TStrGrid = class(Grids.TStringGrid);

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.ColCount:=StringGrid1.ColCount+1; //добавить колонку в конце таблицы
  TStrGrid(StringGrid1).ColumnMoved(StringGrid1.ColCount,2); //сдвинуть на нужное место
end;

Нумерация изменится, столбцы всегда пронумерованы попорядку.

[Stilet]

как можно вставить в дюбое место таблицы еще один столбец как бы "разорвав" саму таблицу?

Вот пример

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type    tnewgr=class (Grids.tcustomgrid);
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.RowCount:=StringGrid1.colCount+1;
StringGrid1.Cells[StringGrid1.ColCount-1,1]:='dasd';
tnewgr(StringGrid1).MoveColumn(StringGrid1.colCount-1,2);
end;

end.

Не успел но стирать не буду

[Баламут]

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

Там написано как удалить строки, а мне надо наоборот вставить столбцы!)

Да я-то понял вопрос. Просто надеялся, что тебе достаточно будет легкого толчка в нужную стороную

[artemavd]

/////////////
TStrGrid(StringGrid1).ColumnMoved( StringGrid1.ColCount, 2); //сдвинуть на нужное место
////////////
Вы бы не могли словами пояснить что это значит? Что именно значит цифра "2"?)

[Stilet]

Что именно значит цифра "2"?)

Это новая позиция колонки...

[artemavd]

Спасибо!) Я понял) Попробую)