Автор: Vit
type TFake = class(TStringGrid); ... procedure TForm1.Button1Click(Sender: TObject); begin TFake(StringGrid1).MoveColumn(1, 3); end;