Konstruktor

[mkinzler]

Delphi-Quellcode:

tgeo_objects = class
end;

    TViereck = class(Tgeo_objects)
    private
      Fx,Fy:integer;
    public
      procedure setx( ax: Integer); 
      procedure sety( ay: Integer);
      function getx:integer;
      function gety:integer;
    published
      property x: Integer read getx write setx;
      property y: Integer read gety write sety;
   end;

  TDreieck = class(TViereck)
  end;
...
  procedure TViereck.setx( ax: Integer);
  begin
      Fx = ax;
  end;
  ...