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