как сделать Класс типа Image

[SevenXP]

Мне нужно сделать класс типа Image на примере сча скажу что мне нужно
вот код программы я хочу на простейшем понять.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type // сдесь создаю класс как я понимаю типа Image
  TIm = class(TImage)
  a:TImage; //Это переменая будет счетаться по параметрам как компонент Image ?
  procedure Init(s:TImage);// Эта процедура для сохранение в переменую 
а компонент Image
  end;

var
  Form1: TForm1;

implementation

procedure TIm.Init;
begin
a:=s;
a:=a.Left+5;
end;

//Вроде все хорошо но почему компилятору не нравиться переменая по чему переменая не наследует параметры и свойства компонента Image?

Зарание спс это мне оч нужно!!

[Прик]

А зачем создается класс TIm? Цель в чем?

Переменная ему нравится. Ему не нравиться дикое выражение a:=a.Left+5;
Можно ли переменной, ссылающейся на объект присваивать целочисленное значение?

[XeruH]

Данный код работать не будет(вылетит ошибка доступа по адресу)! А вообще сложно понять что вы пытаетесь сделать. Поэтому дать какие-то советы и разъяснения трудно.

[SevenXP]

У меня есть несколько Image характеристика все у них похоже и выполняют обсолютно одинаковые действия по этому хочу сделать класс Image
В процессе в классе TIm будет несколько важных процедур так что бы не переписывать код заного и не менять имя Image1 на Image2 а так что бы допустим процедура Mov(image1);

[SevenXP]

XeruH
Мне нужно что бы переменая (A) хранил компонент Image что бы я мог писать a.left+5 за мест Image1.Left+5
Причем так что бы в переменую (а) заносился компонент при вызове процедуры в которой в скобках я укажу компонент (Image)

[Прик]

В классе TIm не нужна переменная типа TImage, потому что этот класс и есть TImage (точнее - его наследник со всеми вытекающими).

Для того чтобы решить задачу, надо почитать про полиморфизм в ООП.
Здесь же, если примитивно, надо сделать один класс (пусть это будет TIm) с процедурой Init (далее, при необходимости, можно дополнить другими методами и свойствами) и использовать его как предка для других классов, которые будут вести себя несколько иначе, но они вынужденно будут наследовать процедуру Init.

[evg_m]

type // сдесь создаю класс как я понимаю типа Image

здесь мы только описали класс.
чтобы начать пользоваться надо создать экзепляр данного класса

im:=Tim.Create;//создание экземпляра типа Tim и сохранения для последующего использования а переменную im.

im.Init(image1); //это будет применение метода Int к экземпляру im

TIm = class(TImage)

в данном случае это (наследование от Timage) излишне
достаточно будет

Tim=class(Tobject) или TIm=class

все данные (ксли их туда кто либо поместит) будут содержаться в переменной

a:TImage; //Это переменая будет счетаться по параметрам как компонент Image

если их туда кто либо поместит

за это у нас отвечает процедура

procedure Init(s:TImage);// Эта процедура для сохранение в переменую

[spamer]

Ой-ой-ой...извините, но на код смотреть страшно
Вобщем почитайте про ООП (см. вложение), а также хорошая статья (назв. Рабство программиста...) есть в журнале ПРОграммист (2 номер) ==> вот тут

[SevenXP]

Так не заблуждайте меня класс свой я правильно наследую
во вторых я прошу сказать правильно ли я обьявил переменую (А), по ходу нет, по тому что я не могу применять свойства обычного Image
Вот и прошу как мне обьявить переменую что бы она счеталась как Image и понимало такое выражение Image1.Left+5 все что я прошу

[evg_m]

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

в таком случае полагаю надо так

var a: Tim; .//и никаких a: Timage; внутри класса

a:=Tim.Create(????);
a.Init(???);

только вот что ты будешь писать вместо ???? я не могу представить.
Могу предположить, что можешь написать, но к чему это приведет предсказать не берусь.

сравни

im:=Tim.Create;//создание экземпляра типа Tim и сохранения для последующего использования а переменную im.

im.Init(image1); //это будет применение метода Int к экземпляру im

Вот и прошу как мне обьявить переменую что бы она счеталась как Image и понимало такое выражение Image1.Left+5 все что я прошу

полагаю это как
чтобы любой объект типа Timage понимал выражение left:=left+5
или так
чтобы к любому объекту типа Timage можно было применить метод Init

в этом случае

type 
Tim=class(Timage)
private
  procedure Init;
end;

procedure Tim.Init;
begin
  self.left:=self.Left+5;
end;

и использовать где-то в коде

  Tim(image1).Init;

это применять надо с полным пониманием правил OOП, которых пока недостаточно.