Wie schafft TPageControl die Tabsheets in form1 einzufügen

[Alexander Roth]

Hi,

also wenn man eine PageControl hat und dann auf "neue Seite" klickt, erscheint in der Published deklaration von Form1 ein weiteres TabSheet!
Wie geht das? Ich möchte so was nämlich bei einer eigenen Komponente machen.


Gruß Alexander

[sh17]

Vielleicht per RTTI (Run-time type information )

[SirThornberry]

es wird ganz einfach nur ein TTabSheet vom Component-Editor des TPageControl erzeugt mit dem gleichen Owner. Zudem wird das ParentPageControl gesetzt.

[sh17]

Ich dachte, er wollte wissen, wie die Objekt-Hierarchie-Anzeige im Delphi funktioniert.

[SirThornberry]

durch setzen des Parent weiß Delphi wer der Parent ist und kann es entsprechend darstellen.

[Alexander Roth]

Cool. Danke. Es klappt. Jdefalls so halbwegs. Ich muss noch einiges tun.


EDIT:

Hi,

also ok, es werden nun meine neuen Tabs/Panels in die Published Deklaration von Form1 aufgenommen und im Struktur Fenster erscheinen sie als untereinheiten von meiner Komponente.
Alles super. Doch falls man es kompiliert Oder wenn das Formular als "Ansicht als Text" und wieder "Ansicht als Formular" macht kommt forlgende ähnlichen Exceptions:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EComponentError mit der Meldung 'Komponente mit der Bezeichnung ExpandPanels1Panel0 existiert bereits' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

ODER:
Beim wechseln Formular Text Formular:
"Komponente mit der Bezeichnung ExpandPanels1Panel0 existiert bereits. Hinweis:..."


Nur wenn man es zu Fuß erstellt die Komponente klappt alles problemlos:
Der Owner ist Form1, damit sie in der Published Deklaration erscheinen und damit ich auf die einzelnen Panels zugreifen kann.
Das Parent ist meine Komponente (TWinControl), damit sie innerhalb dieser Komponenete erscheinen udn nicht auf Form1 sich verirren.
Meine Procedure mit der die Panels Creeiert werden und dann in eine TLIST aufgenommen werden:
Ach ja und ich habe mit showmessages mal geschaut ob sie vielleicht mehrfach oder falsch creiert werden. Das ist nicht der Fall. Sie werden ganz ordentlich und mit der richtigen Nummer/Name creiert.

Delphi-Quellcode:

procedure TExpandPanels.AddPanel;
var     rollout:TJvRollOut;
      newIdx:integer;
begin
  newIdx:=PanelArray.count;


  rollout:=TJvRollOut.Create(Owner);      // wichtig!!!
  rollout.Parent:=self;         // wichtig!!!
  rollout.Name:=Self.Name+'Panel'+IntToStr(newIdx);

  rollout.Left:=0;
  rollout.top:=PanelArray.count*(rollout.ButtonHeight+1);
  if FHeightList.Count<=newIdx then
    FHeightList.Add('200');
  rollout.Height:=strtoint(FHeightList[newIdx]);
  rollout.Width:=Width;

  if Captions.Count<=newIdx then
    FCaptions.Add('Panel '+inttostr(newIdx));
  rollout.Caption:=FCaptions[newIdx];

  if FExpandList.Count<=newIdx then
    FExpandList.Add('1');
  rollout.Collapsed:= pos('1',FExpandList[newIdx])<=0;

  CopyColorsTo(rollout.Colors, not rollout.Collapsed);


  rollout.Tag:=newIdx;
  rollout.OnClick:=JvRollOutClick;
  rollout.OnMouseMove:=JvRollOut1MouseMove;
  rollout.OnExpand:=JvRollExandChange;
  rollout.OnCollapse:=JvRollExandChange;


  PanelArray.add(rollout);

  rollout:=nil;
end;

Wisst ihr wieso er so seltsame Fehler meldet?

Gruß Alexander


PS: Ich hoffe ich gehe euch nicht auf die Nerven, da ich schon viel zu dieser Komponente gefragt habe. Aber es ist meine erste Komponente, auch wenn ich sonst mit OOP schon einige Erfahrung habe.
Danke für eure Gedult und Hilfsbereitschaft!