Problem mit Properties

[sundance]

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.