Создание компонента (не получается использовать свойство класса родителя!)

@_arty_ · Регистрация: 10.07.2009

Author24 — интернет-сервис помощи студентам

1. Создайте компонент MStringGrid, предназначенный для ввода матриц. У этого компонента не должно быть заголовочных строк и столбцов, полос прокрутки. Все ячейки должны быть квадратными. Размер по умолчанию 3х3.

Всё сделал за исключением полос прокрутки, прежде чем спрашивать посмотрите исходник, не получается присвоить свойству ScrollBars значение ssNone, ругается но непонятно на что? Помогите кто чем может, и подскажите как обойти данную проблему.

Исходник: MStringGrid.zip

Вот собственно текст компонента и проблемные участки:

Delphi

type
  TMStringGrid = class(TStringGrid)
  private
   FMGrid: boolean;
    { Private declarations }
  protected
  procedure SetMGrid(value: boolean);
 
    { Protected declarations }
  public
  constructor create (AOwner: TComponent);override;
    { Public declarations }
  published
  property MGrid: boolean read FMGrid write SetMGrid default false;
 
    { Published declarations }
  end;
 
procedure Register;
 
implementation
 
uses MaskUtils;
 
procedure Register;
begin
  RegisterComponents('Samples', [TMStringGrid]);
end;
 
constructor TMStringGrid.create(AOwner: TComponent);
begin
inherited create(AOwner);
FMGrid:=false;
if FMGrid=true then
 
  Begin
  Width:=105;
  Height:=85;
  FixedCols:=0;
  FixedRows:=0;
  RowCount:=3;
  ColCount:=3;
  DefaultColWidth:=32;
  DefaultRowHeight:=24;
  Scrollbars:=ssNone;
  end;
end;
 
procedure TMStringGrid.SetMGrid(value: boolean);
begin
FMGrid:=value;
if FMGrid=true then
 
  Begin
  Width:=105;
  Height:=85;
  FixedCols:=0;
  FixedRows:=0;
  RowCount:=3;
  ColCount:=3;
  DefaultColWidth:=32;
  DefaultRowHeight:=24;
  Scrollbars:=ssNone;
  end;
 
 
end;
 
end.

	26.06.2010, 17:01