нужна помощь с ООП в delphi

[-COREY-]

TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
{methods}
procedure FormCreate(Sender:TObject);
procedure PaintBox1Paint(Sender:TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X,Y: Integer);
  private
  
  public
   
  end;

И

THorse=class(TObject)
  public
    kx:double;
    ky:double;
    horse_cell:shortint;
    img:TBitmap;

Мне нужно использовать поле класса THorse в методе класса TForm FormCreate.Delphi при компиляции выдаёт ошибку.Как это исправить?Или если это изначально неправильно как переделать?Подскажите,пожалуйста

[Пепел Феникса]

какую ошибку?
создать обьект нужного класса не забыли?(учитывая что вашему классу нужен конструктор)

[Impuls1989]

Пробуйте так:

THorse=class(TObject)
  public
    constructor Create(AOwner:TComponent);override;
    kx:double;
    ky:double;
    horse_cell:shortint;
    img:TBitmap;
.......
constructor THorse.Create;
begin
   inherited Create(AOwner);
end;

[Пепел Феникса]

Impuls1989
нужно создавать битмап внутри класса.
а то что вы написали это пустой конструктор если честно=)

[Impuls1989]

Из за битмапа ничего не будет, в нем будет просто ссылка на некую область памяти, хотя по хорошему нужно действительно создавать битмап, или делать его nil. Это конечно если я ничего не путаю

[Пепел Феникса]

до первого обращение к этому битмапу будет все нормально=)
(если не создавать)

[-COREY-]

procedure TForm1.FormCreate(Sender:TObject);
begin
 Fon:=TBitmap.Create;
 Fon.LoadFromFile('desk.bmp');
 Buffer:=TBitmap.Create;
 Buffer.Width:=560;
 Buffer.Height:=560;
 Buffer.Canvas.Draw(0,0,Fon);
 Buffer.Canvas.Pen.Color:=clRed;
 Buffer.Canvas.Brush.Style:=bsClear;
 Caption:=DefCaption;
 w_h1:=THorse.Create(1,7,horse1,CoordToCell(1,7));
 w_h1.img.LoadFromFile('white_horse.bmp');-{в этой строке ошибка}
 w_h1.img.Transparent:=true;
 Timer1.Interval:=20;
 Timer1.Enabled:=False;
 Randomize;
end;

[-COREY-]

constructor THorse.Create(x,y:double;aIMG:TBitmap;aHorse_Cell:shortint);
begin
kx:=x*Cell_Size;
ky:=y*Cell_Size;
img:=aIMG;
horse_cell:=aHorse_Cell;
end;

вот код конструктора

[Пепел Феникса]

я об этом и говорил
http://programmersforum.ru/showpost....07&postcount=3
этот пост+дописать в конструктор

img:=TBitMap.Create;

horse1
а этот битмап то не создан.

[spamer]

В конструкторе вашего класса нужно создать Ваш битмап img.

з.ы. дык опоздал)