[PageControl] tabs schliesen

[MrSpock]

Hallo tester123,

ich galube ich verstehe erst jetzt was du mit background meinst. Die Seite ist nicht aktiv!?

Delphi-Quellcode:

PageControl1.ActivePageIndex := PageControl1.PageCount-1;

[tester123]

Zitat:

Zitat von MrSpock

Hallo tester123,

ich galube ich verstehe erst jetzt was du mit background meinst. Die Seite ist nicht aktiv!?

Delphi-Quellcode:

PageControl1.ActivePageIndex := PageControl1.PageCount-1;

hmmm hatte ich eigentlich schon als

Delphi-Quellcode:

PageControl1.ActivePageIndex := PageCount-1;

dortstehen gehabt... jetzt geht zwar das das die pages im vordergrund erscheinen aber alle anderen funktionen die ich auf PageControl1.ActivePage gestützt hab drehen irgendwie durch :/ gibts vieleicht ne andere möglichkeit ein tab zu schliesen als .free; ?

[MrSpock]

Hallo tester123,

nicht, dass ich wüsste. Liegt es vielleicht an den Komponenten, die du in das neue TabSheet eingefügt hast!?

[tester123]

Zitat:

Zitat von MrSpock

Hallo tester123,

nicht, dass ich wüsste. Liegt es vielleicht an den Komponenten, die du in das neue TabSheet eingefügt hast!?

hmmm ich füg da einfach ein TSynEdit ....

es geht witziger weise alles korekt bis ich einmal ein tabsheet schliese... :/

[MrSpock]

Hallo Tester123,

wie fügst du das SynEdit Objekt ein? Ich habe es gerade einmal mit einem normales TEdit probiert, da funktioniert es ohne Probleme auch nach Einfügen und Löschen von vielen Seiten.

[tester123]

Zitat:

Zitat von MrSpock

Hallo Tester123,

wie fügst du das SynEdit Objekt ein? Ich habe es gerade einmal mit einem normales TEdit probiert, da funktioniert es ohne Probleme auch nach Einfügen und Löschen von vielen Seiten.

hmmm also bei mir geht das wie schon gesagt reibungslos bis eben free mit ins spiel kommt....

Delphi-Quellcode:

  edits[pagecount-1] := TSynEdit.Create(pages[pagecount-1]);

[MrSpock]

Hallo tester123,

du musst noch den Parent von SynEdit setzen. Hast du das gemacht?

[tester123]

Zitat:

Zitat von MrSpock

Hallo tester123,

du musst noch den Parent von SynEdit setzen. Hast du das gemacht?

jo ...

Delphi-Quellcode:

  edits[pagecount-1].Parent :=  pages[pagecount-1];

[tester123]

hmmmm irgendwie klappt das nich.... ich glaub ich häng mich bald auf ... :( schliesen geht aber die funktionen die sich dann auf die aktiven tabs beziehen die klappen net :/

[MrSpock]

:shock: Wir wollen ja nicht, dass Gerome hier noch Leichen aufsammeln muss. :shock:

Vielleicht kannst du das Projekt oder den Teil, der nicht funktioniert einmal anhängen. Ich habe ein kleines Testprogramm geschrieben, bei dem alles funktioniert. Ich habe jedoch keine SysEdit Komponente auf meinen PageControls. Tritt der Effekt nur bei der SynEdit Komponente auf oder verhalten sich auch andere Komponenten nicht korrekt?