Error: identifier idents no member 'left' – Pascal – Fórum – Programujte.com

Vytvořila jsem objekt TObrazek, který bych ráda posouvala po ploše Image1 pomocí šipek na klávesnici. Když však spustím program, zobrazí se mi níže uvedená chybová zpráva: Error: identifier idents no member “Left“… Error: identifier idents no member “Top“… Můžete mi vysvětlit, co přesně to hlášení znamená a jak chybu opravit.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key=VK_LEFT then TObrazek.Left:=TObrazek.Left-1;
   if Key=VK_RIGHT then TObrazek.Left:=TObrazek.Left+1;
   if Key=VK_UP then TObrazek.Top:=TObrazek.Top-1;
   if Key=VK_DOWN then TObrazek.Top:=TObrazek.Top+1;
end;

A TObrázek je instance nějaké třídy nebo co to je? Přidej sem kód jak a z čeho jsi jej vytvořila.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

const vk_Left=37;
      vk_Right=39;
      vk_Up=38;
      vk_Down=40;

type
  TObrazek = class
    obr: TBitmap;
    c: TCanvas;
    constructor Create(cc: TCanvas);
    procedure Kresli;
    destructor Destroy; override;
    end;

  { TForm1 }

var o: TObrazek;

procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    o.Kresli;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  o:=TObrazek.Create(Image1.Canvas); o.Kresli;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
   if Key=VK_LEFT then TObrazek.Left:=TObrazek.Left-1;
   if Key=VK_RIGHT then TObrazek.Left:=TObrazek.Left+1;
   if Key=VK_UP then TObrazek.Top:=TObrazek.Top-1;
   if Key=VK_DOWN then TObrazek.Top:=TObrazek.Top+1;
end;

  constructor TObrazek.Create(cc: TCanvas);
  begin
    c:=cc;
    obr:=TBitmap.Create;
    obr.LoadFromFile('obrazek.bmp');
    obr.Transparent:=true;
  end;

  procedure TObrazek.Kresli;
  begin
    c.Draw(0, 0, obr);
  end;

  destructor TObrazek.Destroy;
  begin
    obr.Free;
  end;

end.

TObrazek je jen datovy typ... pracovat musis s promennou... jestli sem postrehl spravne tak je to   "o"  (a to jeste mozna ne primo left/top ale pres ten parametr obr...)

#5 KIIV
Jak by to asi mělo vypadat?

Uf, to je nějaký divoký.

1. Definice třídy TObrazek patří do sekce interface.
2. Třída TObrazek nemá vlastnosti Left, Top, atd. takže ani správný přístup přes proměnnou "O" ti nepomůže. 
3. Jaké je zadání tohoto úkolu?

Vlastně se musím dobelhat k vytvoření jednoduché hry. Zatím se pokuším pochopit, jak rozpohybovat obrázek pomocí šipek na klávesnici.

Hra je poměrně široký pojem.Předpokládám, že jde o projekt do školy. Pokud není zadáno, že se musí řešit hra s pohybem postaviček, tak bych být tebou řešil pexeso nebo nějakou deskovou hru. 
 

právě, že jde o pohyb postaviček

Ok, tak potom si dej na form 2 x TImage. Jeden pro pozadí (pojmenuj ho třeba imgBackground) a jeden pro postavičku (pojmenuj ho třeba imgFigure).
Pohyb pak můžeš simulovat změnou souřadnic přes vlastnosti imgFigure.
Pohyb vlevo:
imgFigure.Left := imgFigure.Left - 5;

Pohyb vpravo:
imgFigure.Left := imgFigure.Left + 5;

atd...

Obrázky do těch TImage by mělo jít nahrát přes vlastnost Picture. (Aspoň tak se to jmenuje v Delphi, v Lazarusu to bude nejspíš stejné, nemám ho momentálně k dispozici.)