Image в классе Tobject

[Feraset]

Здравствуйте програмисты. Подскажите пожалуйста, я не совсем понимаю ООП но в этой теме обязан разобраться.
Предположим есть класс TKart наследованный от TObject. Как загрузить в него картинку и вывести её(как обьект) на форму. Напишите пожалуйста рабочий пример. Заранее спасибо.

[xoodoo]

наследованный от TObject

Напрямую от TObject ? Это принципиально ?
Или допускается наследование, к примеру, от любого наследника TGraphicControl ?
Это же существенно упрощает и унифицирует решение..

[Feraset]

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

Напрямую от TObject ? Это принципиально ?
Или допускается наследование, к примеру, от любого наследника TGraphicControl ?
Это же существенно упрощает и унифицирует решение..

Ну, любой помощи буду рад, однако, Tobject постарше, больше свойств и возможностей. Напиши на Tgrapfic если можешь. Очень надо. Спасибо=)

[Luuzuk]

Tobject постарше, больше свойств и возможностей

я не совсем понимаю ООП

Теперь верю, что не совсем понимаете
P.S. как вариант - создать свойство Image в классе TKart

[xoodoo]

однако, Tobject постарше, больше свойств и возможностей

Ты смотри это преподу не ляпни - сразу тебя вытолкает в шею)

Напиши ..Очень надо

Надо кому ? Тебе надо - ты и пиши. А мне оно не надо.

[Feraset]

Ребят серьёзно, как создать свойство image в Tkard? Я уже неделю мучаюсь=)
А насчёт иерархии:
TObject->TPersistent->TGraphicControl - Почему не старше?

[xoodoo]

Описание свойства любого объекта начинается с ключевого слова property.
Открываешь любой букварь по Delphi и встроенный справочник и штудируешь там все касаемое слова property.

[Feraset]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
 Thero = class(TGraphicControl)
  Fim:Timage;
  public
   Constructor Create;
   Procedure Setim (value: timage);
   Function getim: timage;
  published
   property im Timage read Getim write Setim;
 end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Так?

[xoodoo]

Почему не старше?

Старше. Никто и не возражал против этого.
А вот "возможностей" больше у наследников чем у предков. На то они и наследники.

[Feraset]

Разобрался, спасибо=)