AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Wie schafft TPageControl die Tabsheets in form1 einzufügen
Thema durchsuchen
Ansicht
Themen-Optionen

Wie schafft TPageControl die Tabsheets in form1 einzufügen

Ein Thema von Alexander Roth · begonnen am 13. Aug 2007 · letzter Beitrag vom 15. Aug 2007
Antwort Antwort
Benutzerbild von Alexander Roth
Alexander Roth

Registriert seit: 17. Mai 2004
Ort: Kenn
574 Beiträge
 
Turbo Delphi für Win32
 
#1

Re: Wie schafft TPageControl die Tabsheets in form1 einzufüg

  Alt 15. Aug 2007, 09:17
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!
Angehängte Dateien
Dateityp: pas expandpanels_114.pas (20,0 KB, 4x aufgerufen)
Alexander Roth
Ich bin umgestiegen auf: Lazarus und Ubuntu! Alles OpenSource!

Besuch doch mal: www.roth.us.ms
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz