Problem mit Properties

[Hawkeye219]

Du könntest die index-Direktive nutzen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    :
    procedure FormCreate (Sender: TObject);
  private
    Panels : array [1..4] of TPanel;
    function GetAppname (aIndex: Integer): String;
  public
    property App1Pathname: string index 1 read GetAppname;
    property App2Pathname: string index 2 read GetAppname;
    property App3Pathname: string index 3 read GetAppname;
    property App4Pathname: string index 4 read GetAppname;
  end;

procedure TForm1.FormCreate (Sender: TObject);
begin
  Panels[1] := Panel1;
  Panels[2] := Panel2;
  Panels[3] := Panel3;
  Panels[4] := Panel4;
end;

function TForm1.GetAppname (aIndex: Integer): String;
begin
  Result := Panels[aIndex].Caption;
end;

Ungetestet, aber so oder ähnlich sollte es funktionieren. Sicherheitsabfragen mußt du natürlich noch einbauen.

Gruß Hawkeye