Hilfe ( Lies X Position)

[xman236]

Delphi-Quellcode:

type TBogen = class (TObject)
     private
       zZF: TForm;
       zX, zY, zB, zH : Integer;
       zFarbe: TColor;
       zSichtbar: Boolean;
     public
       constructor Create (Zeichenflaeche: TForm; XPos, YPos,  Breite, Hoehe:Integer; Farbe: TColor);
       // destructor Destroy; {geerbt}
       procedure Zeichnen;
       procedure Loeschen;
       procedure SetzeFarbe (Farbe: TColor);
       procedure SetzePosition (XPos, YPos: Integer);
       function LiesXPosition: Integer;
       function LiesYPosition: Integer;
     end;

Meinst du das hier ? Sir Rufo?