Problem mit Properties

[Hawkeye219]

Hallo sundance,

ganz ohne Getter wird es wohl nicht gehen, der folgende Code zeigt dir einen möglichen Weg auf:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    :
  private
    function GetAppname (aPanel: TPanel): String;
  public
    property AppPathname [aPanel: TPanel]: string read GetAppname;
  end;

function TForm1.GetAppname (aPanel: TPanel): String;
begin
  if Assigned(aPanel) then
    Result := aPanel.Caption
  else
    Result := '';
end;

Benutzen kannst du die neue Eigenschaft so:

Name1 := Form1.AppPathname[Panel1]; Eine Sache ist mir noch nicht klar: wie kann der Anwender mit der Caption-Eigenschaft eines Panels eine Einstellung vornehmen?

Gruß Hawkeye