Hallo Hawkeye,
vielen Dank für deine Antwort.
Allerdings war mein Hintergedanke, dass ich beim Aufruf der Property nicht wissen muss, auf welchem Panel der jeweilige Pfadname steht. Sonst könnte ich mir das alles sparen und einfach nur
Name1 := Form1.Panel1.Caption;
verwenden.
Zitat:
wie kann der Anwender mit der Caption-Eigenschaft eines Panels eine Einstellung vornehmen?
Dafür gibt's einen Eventhandler, den jedes Panel beim Klicken darauf aufruft:
Delphi-Quellcode:
procedure TFormSettings.AppSelectionClick(Sender: TObject);
// Durch Klicken auf das Panelfeld des jeweiligen externen Programms kann über
// einen Dateiauswahldialog der Pfad ausgewählt werden.
var
aPanel: TPanel;
fn: String;
begin
aPanel := Sender as TPanel; // Zeiger auf geklicktes Panelfeld
fn := aPanel.Caption; // Dort eingetragener Dateiname
with OpenAppDialog do begin
if FileExists(fn) then
InitialDir := ExtractFileDir(fn)
else
InitialDir := JTools.GetProgramFilesDir;
if Execute then
aPanel.Caption := FileName;
end; { with}
end;
.sundance.