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

[russian-stalker]

Ну дык надо же создать объект, прежде чем к нему обращаться.
constructor THorse.Create;
begin
inherited Create;
img:=tbitmap.create;
end;

upd
Опаздал

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

russian-stalker
AV вам обеспечен
порядок другой(строки наоборот надо)
и параметры конструктору не нужны предок же TObject

[-COREY-]

а для LoadFromFile и Transparent создавать метод отдельный не надо?

[-COREY-]

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;

А что в этот конструктор передаётся?И зачем

inherited Create(AOwner);

[spamer]

Сообщение от -COREY-

а для LoadFromFile и Transparent создавать метод отдельный не надо?

А смыл? Для вашего случая не надо.
з.ы.Ну хотя, смотря что Вы хотите сделать.

[-COREY-]

я хочу,чтобы delphi мне изображение вывел.

[-COREY-]

только он не выводит

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

сделайте такой конструктор как я сказал.

constructor THorse.Create(x,y:double;FileName:string;aHorse_Cell:shortint);
begin
inherited Create;
kx:=x*Cell_Size;
ky:=y*Cell_Size;
img:=TBitMap.Create;
Img.LoadFromFile(FileName);
horse_cell:=aHorse_Cell;
end;

и тогда

w_h1:=THorse.Create(1,7,'white_horse.bmp',CoordToCell(1,7));

russian-stalker, твой пост навел на мысль

а где создание обьекта а именно вызов коренного Create(точнее Create предка)?
именно TObject.Create выделяет память.

[russian-stalker]

inherited Create;
Это построение родительского класса. У вас он TObject

[-COREY-]

Procedure DeskDraw;
var x,y:byte;
begin
if StartCell>=0 then
  begin
   x:=CellToX(StartCell);
   y:=CellToY(StartCell);
   Buffer.Canvas.Pen.Color:=clLime;
   Buffer.Canvas.Rectangle(x*Cell_Size+fleft, y*Cell_Size+ftop,
      x*Cell_Size+fleft+Cell_Size, y*Cell_size+ftop+Cell_Size);
   if DestCell>=0 then
   begin
    x:=CellToX(DestCell);
    y:=CellToY(DestCell);
    Buffer.Canvas.Rectangle(x*Cell_Size+fleft, y*Cell_Size+ftop,
      x*Cell_Size+fleft+Cell_Size, y*Cell_size+ftop+Cell_Size);
   end;
   Buffer.Canvas.Pen.Color:=clRed;
  end;
 w_h1:=THorse.Create(1,7,horse1,CoordToCell(1,7));
 Buffer.Canvas.Draw(trunc(w_h1.kx)+fleft,trunc(w_h1.ky)+ftop,w_h1.img);
 Form1.PaintBox1.Canvas.Draw(0,0,Buffer);
end;

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;
 w_h1.horse_cell:=CoordToCell(1,7);
 Randomize;
end;

вот две процедуры,где THorse используется.Это кусок шахмат