Класс-родитель и несколько предков

[pinguinjkeke]

У меня существует класс родитель TFurniture. Он имеет несколько классов-наследников, в частности TPicture.
Все классы-наследники, конечно-же имеют общие черты, поэтому используют один и тот же конструктор, но разную процедуру прорисовки, которая объявлена в родителе как виртуальная.
Obj - это массив создаваемых объектов, типом данных которого является TFurniture.
Задавая значение SpinEdit'ах формы меняются параметры и объекты на PaintBox перерисовываются. Также должно быть и с SetPic.

Вопрос - как задать параметр SetPic по действию Button1?

Не вариант, если SetPic будет принадлежать TFurniture(родителю), что является нерациональным, т.к. параметр картинки свойственен только для TPicture. Этот параметр не должен относиться к TTable и TStand.

Код находится здесь. Не поместился в форум. http://pastebin.com/eNDz7jNL

Короче, у меня проблема родителей и детей

[Человек_Борща]

Также должно быть и с SetPic.

В коде TPicture, нет ни намека на использование FPic.
Подозреваю,что канва, принадлежащая базовому классу - не обновляется.

Далее класс TPicture является стандартным классом Delphi, и живет в:

Vcl.Graphics,

И вместо вашего класса оно берет базовый класс среды. Хотя должно выносить мозг по этому поводу.

[pinguinjkeke]

Спасибо за быстрый ответ.
А зачем обновлять канву?
TPicture переименовал в TPic.
Пока рано использовать FPic, я считаю. Я пока не представляю как просто реализовать доступ к property pic
http://pastebin.com/wQw9W8xF

[spamer]

Как-то так:

var
Obj: Array[0..2] of TFurniture;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpPic: TPic absolute Obj[0];   // Вариант 1
begin
  Obj[0] := TPic.Create(какие-то параметры);
  if not (Obj[0] is TPic) then
    Exit;

  tmpPic.Pic := MyPic;   // Вариант 1

  TPic(Obj[0]).Pic := MyPic;   // Вариант 2

  (Obj[0] as TPic).Pic  := MyPic;   // Вариант 3
end;

И еще - уберите вызов метода Draw() из конструктора, не для таких целей предназначен последний. Лучше открытым этот метод сделать и непосредственно вызывать откуда нужно.
А вобще унаследуйся лучше от класса TGraphicControl - там тебе и канва уже есть и метод Paint() виртуальный...