Написание компонента, наследование (TPanel)

[SoftKoc]

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

а как вы его потом создаете?

Вот так:

	
	
constructor TskPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ...
  SetLength(skTimeBar, 2);
  skTimeBar[0]:=TShape.Create(Self);
  skTimeBar[0].Parent:=TskGantt(Self);
  ...
end;

[ArtGrek]

индех нужен для обрашения к ячеике, а вы создаете весь массив

  skTimeBar:=TShape.Create(Self);
  skTimeBar.Parent:=TskGantt(Self);

[SoftKoc]

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

индех нужен для обрашения к ячеике, а вы создаете весь массив

  skTimeBar:=TShape.Create(Self);
  skTimeBar.Parent:=TskGantt(Self);

У меня указан индекс ->

 
skTimeBar[0]:=TShape.Create(Self);

[ArtGrek]

извените, ошибся
так нельзя, в вашем случае
skTimeBar:=TShape.Create(Self);

думаю вам надо етот массив создать до занесения в клас компонента

[SoftKoc]

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

извените, ошибся
так нельзя, в вашем случае
skTimeBar:=TShape.Create(Self);

думаю вам надо етот массив создать до занесения в клас компонента

Если я его описываю в классе оно не компилит, а выдает ошибку.
Объявил в Var а не в классе, нормально работает.
Только вот хотелось бы сделать отдельным классом TShape.
Пробовал писать свой класс, но что-то кривовато получилось - "Shape" не создает, а если и создает тогда не на Panel, хоть и Parent указан на Panel.

Простите за глупости, я немного сонный. Как проснусь кину исходник - тот в котором я писал отдельный класс.

[ArtGrek]

вам надо просто расположить на панел 1 шапе? если да то делаите ето так же как я с имаджем, зачем вам массив?

[SoftKoc]

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

вам надо просто расположить на панел 1 шапе? если да то делаите ето так же как я с имаджем, зачем вам массив?

Нет не один, не зря же я использую динамический массив

[evg_m]

перенеси описание из секции
Published //для публикации в инспекторе объектов
в любую другую например public

type
  TskPanel = class(TPanel)
   skScrollBar: TScrollBar;
   skCanvas: TImage;
public
   skTimeBar: array of TShape;
  private

[ArtGrek]

Нет не один, не зря же я использую динамический массив

вы б рассказали как вы планируете с етим работать по подробнее

[ArtGrek]

Говорит:
[Error] skPanel.pas(12): Published field 'skTimeBar' not a class nor interface type

хелп проглядывал, вроди по твоеи части

When declaring an abstract method in a base class, it must either be of regular virtual or dynamic virtual type. 

program Produce;

  type
    Base = class
      procedure DaliVision; abstract;
      procedure TellyVision; abstract;
    end;

begin
end.

The declaration above is in error because abstract methods must either be virtual or dynamic. 

program Solve;

  type
    Base = class
      procedure DaliVision; virtual; abstract;
      procedure TellyVision; dynamic; abstract;
    end;

begin
end.

It is possible to remove this error by either specifying 'virtual' or 'dynamic', whichever is most appropriate for your application.