Hi zusammen
Die Deklaration:
Delphi-Quellcode:
private { Private-Deklarationen }
FInsertPdfDocument : TInsertPdfDocument;
FReportList: TStringList;
FAppDataPath: string;
FProjectPath: string;
FOwnFolderList: TStringList; //<==
FTextSelection: string;
procedure ShowCategoryPanel(Sender: TObject);
procedure WriteBookmarkMemo;
procedure DoTextSelectionEvent(Sender: TObject; const ATextSelection: String);
function projectfolder : String;
{ Public-Deklarationen }
property OwnFolderList : TStringlist read FOwnFolderList write FOwnFolderList; //<===
property Appdatapath: String read FAppDataPath write FAppDataPath;
end;
Der Zurgriff:
Delphi-Quellcode:
if OfficerAlexMain.OwnFolderList <> nil then //<== Fehler
begin
if OfficerAlexMain.OwnFolderList.IndexOf(aRealName) <> -1 then
begin
Node.ImageIndex := 3;
Node.SelectedIndex := 3;
end
end;
Die Fehlermeldung:
Zitat:
[dcc32 Fehler] AlexOpenfileFrameUnit.pas(199): E2361 Auf private-Symbol TOfficerAlexMain.OwnFolderList kann nicht zugegriffen werden
Das hat funktioniert, bis ich heute abend einen TDateTimePicker und ein DateTimeEdit auf ein leeres Tabsheet zog, um sie optisch zu vergleichen.
Gruss
Delbor