Und ich mal wieder.
kann jemand mit der folgenden Meldung was anfangen?
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt NVDTA.exe ist eine
Exception der Klasse EClassNotFound aufgetreten. Meldung: 'Klasse TTabSheet nicht gefunden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
Nun, ich habe eine Form auf der eine PageControl1 liegt. Ich kann zur Laufzeit Tabsheet’s erzeugen und löschen. Auf jeder Page ist noch eine ShellListView die auf eine festen Ordner verwiest. Wenn ich also nun „Richtig mühevoll“ mir eine neue Page erstelle (per RechtsKlick), will ich natürlich das er denn zustand beim schließen des Progs speichert und beim starten wieder Lädt.
Das Speichern scheint zu gehen. Zumindest entsteht eine Datei wo auch die Reihenfolge der Tabs gespeichert wird.
Nur das laden nicht, da kommt halt diese Meldung.
Im Anschluß noch mein Code zur Fehlersuche und Änderung. DANKE!
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
fs := TFileStream.Create(ProgPath + 'NV-DesktopTool-A.ini', FmCreate or FmShareDenyWrite);
try
fs.WriteComponentRes(PageControl1.Name, PageControl1)
finally
fs.free;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
if FileExists(ProgPath + 'NV-DesktopTool-A.ini') then
Begin
fs := TFileStream.Create(ProgPath + 'NV-DesktopTool-A.ini', FmOpenRead or FmShareDenyNone);
try
fs.ReadComponentRes(PageControl1);
finally
fs.free;
end;
end;
end;