1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

TMyFrame = class (TFrame)
public
constructor Create (AOwner : TComponent); override;
end;

TMyFrame.Create (AOwner : TComponent);
begin
  inherited Create (AOwner);
  {hier deinen code einbauen}
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

TMyFrame = class (TFrame)
public
constructor Create (AOwner : TComponent; AStartParam : Integer); reintroduce;
end;

TMyFrame.Create (AOwner : TComponent; AStartParam : Integer);
begin
  inherited Create (AOwner);
  {hier deinen code einbauen
  case AStartParam of
    1:;
    2:;
  end;
  }
end;					

1:
2:
3:
4:
5:
6:

  // Basiskonstruktor
  TComponent = class(...)
  public
    constructor Create(AOwner: TComponent); virtual; // Konstruktor als virtuelle Methode
    ...
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  // Form Frame etc.
  TForm1 = class(TForm)
  public
    constructor Create(AOwner: TComponent); override;
    ...
  end;

implementation


constructor TForm1.Create(AOwner: TComponent);
begin
  // Wichtig! Inherited ruft den vorherigen Konstruktor auf.
  inherited;

  // Mach was
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

unit AnwFrameTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrameWunde, StdCtrls;

type
  TForm1 = class(TForm)
    Frame_Wunde1: TFrame_Wunde;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Frame_Wunde1.Bild_Laden('{105F1617-7643-4B9A-9B71-37687FC9B4BC}');
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

public
    { Public-Deklarationen }

    WundeArtGuid         : string;  // entspricht WUNDEMARKIERUNGART_NR


    function getFlaeche      : Extended;
    function getUmfang       : Extended;
    function getMassstab_pix : Integer;
    function getMassstab_cm  : Double;


    Procedure maxAusdehnung;
    Procedure Breite_Hoehe;

    Procedure init;   // damit es auch von woanders geht

    procedure Bild_Laden(StrGuid:String); // Markierungen löschen inkl. listen und Anzeige und Bild laden

    Function  GuidString : string;        // Guid erzeugen


  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function TFrame_Wunde.getFlaeche() : Extended;
begin
  Result:=Flaeche;
end;

function TFrame_Wunde.getUmfang() : Extended;
begin
  Result:=Umfang;
end;

function TFrame_Wunde.getMassstab_pix() : Integer;
begin
  result := lmassstab_pix;
end;

function TFrame_Wunde.getMassstab_cm() : Double;
begin
  result := lmassstab_cm;
end;