PageControl fehler bei ReadComponentRes

[Stevie]

Schreib mal folgendes in deine Unit:

Delphi-Quellcode:

initialization
  RegisterClass(TTabSheet);

finalization
  UnRegisterClass(TTabSheet);

Das behebt den Fehler, allerdings gibt's dann nen anderen, da bin ich noch dran.

[No Voices]

Ich habe da schon sowas stehen werde mir das aber nochmal ansehen ändern und ein bischen probieren.

[Stevie]

Ok, ich hab's!!!

Zunächst die Funktionsweise der Funktion ReadComponentRes:

Die Funktion lädt aus der Ressource die Werte und setzt sie auf die Komponente, die übergeben wird.
Wird aber nil übergeben, dann wird eine Instanz aus der Klasse erstellt, die in der Ressource steht.
Also geht die Funktion in die Ressource, lädt sich die Daten und sieht, dass dort ein TabSheet-Objekt
steht. Das TabSheet gibt's zwar schon, aber die Funktion hat nicht die Instanz, also will sie das Objekt
neu erzeugen. Dafür muss diese Klasse aber registriert sein, was bei TTabSheet nicht der Fall ist.
Tja, und deshalb gibt's auch das Phänomen, dass die TabSheets sich beim ersten Versuch verdoppeln, die die
du erstellt hast und die, die die Funktion aus der Ressource lädt und erzeugt.

Mein erster Vorschlag wäre, die TabSheets im Quelltext zu erstellen...

[No Voices]

Gute erklärung Danke. Leider Kann ich die TabSheet's nicht so im Code mit reinnehmen. Das ist ja sohn ding. Es soll ein tool werden wo ich nur Verknüpfungen drin habe also ein ("Start menü").
Die TabSheet's werden zu laufzeit erzeugt und bennant. Also woher soll ich wissen wieviele das sind. Auf jedem TabSheet ist eine ShellListView der nur auf einen Festen Ordner verweist, wo nun die Verknüpfungen lieghen. Es soll hinterher so sein das ich das Prog starte, Mir einen Tab aussuche (Programme, Games, Musik u.s.w). Wenn ich dan doppelclick auf Icon ausübe wird mein Prog geschlossen und das geclickte geöfnet. Diese Funktion Habe ich schon getestet, das geht. Es ist halt nur die sache mit dem Speichern und dem Laden.

[Stevie]

Zitat von Stevie:

Mein erster Vorschlag wäre, die TabSheets im Quelltext zu erstellen...

Zitat von No Voices:

Die TabSheet's werden zu laufzeit erzeugt und bennant.

Das ist doch genau das, was ich meine. Wenn also beim Programmstart keine TabSheets vorhanden sind, müsste es funzen!

[No Voices]

@ Sevie

Ok ich habe gestern das nochmal getestet. Habe folgendes eingefugt.

initialization
RegisterClass(TTabSheet);

finalization
UnRegisterClass(TTabSheet);

Und was soll ich sagen... es geht. DANKE!

Nun hatte ich noch das Problem mit dem Inhalt der TabSheets. Habe ich auch gelöst.

Ich frage die anzahl der Tab's ab und die Caption. Mit einer (For I := 0 To) erzeuge ich für jedes Tab eine ShellListView.

Also was das betrift geht alles. Danke für deine mühe.

Habe noch ne andere frage.

Ich habe Verknüpfungen die Ich in der ShellListView Anzeigen lasse. Wenn ich auf Verknüpfung Doppelt Klicke soll er mir die Exe öffnen. eine fremde EXE öffnen ist kein problem. Habe ich schon gemacht. Aber wie Bekomme ich den Path von der Exe auf die die Verknüpfunbg Verweist. Und das Rechtsklickmenü wenn ich auf der Verknüpfung bin soll auch abgestellt werden. Ich habe dazu schon einen beitrag gefunden. Aber einfach abschalten geht nicht das ich die Funktion (OnRechtsKlick) nicht habe.

[ibp]

bitte neue(s) frage/thema neuer threat...schau dir mal (SDK) ShellExecuteEx und SHELLEXECUTEINFO an

[No Voices]

Ok werde ich machen Danke!