Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Tabsheet samt Inhalt zur Laufzeit erstellen (https://www.delphipraxis.net/60058-tabsheet-samt-inhalt-zur-laufzeit-erstellen.html)

buyden 3. Jan 2006 01:59

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Zitat:

Zitat von Matze
Wo ich schonmal schreibe: Man kann und soll Beiträge editieren.

Hab ich getan.
Zitat:

Zitat von Matze
Hast du evtl vergessen, die ComCtrls.pas einzubinden?

Ups- das ist es aber trotzdem passiert noch nix und wenn ich den Frame mit .Destroy kille, bekomm ich ne Zugriffsverletzung.

buyden 3. Jan 2006 11:14

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Wie kann ich denn die erstellten Tabsheets wieder löschen?

Matze 3. Jan 2006 11:16

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Destroy sollte man dafür nicht nehmen, wenn, dann Free. Wenn man das ganze sauber machen möchte, sollte man das objektorientiert machen, dann hast du einen Constructor und einen Destructor zur Verfügung, wo du die Objekte sauber wieder freigeben kannst.

buyden 3. Jan 2006 11:49

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Wie gesagt hab ich es mit diesem Code versucht

Delphi-Quellcode:
procedure Tframeauftrag.Button1Click(Sender: TObject);
begin
  (FindComponent('frameauftrag' + IntToStr(frmmain.pcauftrag.ActivePageIndex)) as TFrameauftrag).Free;
  (FindComponent('tabauftrag' + IntToStr(frmmain.pcauftrag.ActivePageIndex)) as TTabSheet).Free;

end;
Allerdings passiert rein gar nix wenn ich auf den Button klicke.
Kann das damit zusammenhängen, das der Button auch auf dem Frame liegt, das zur Laufzeit erstellt wird und daher nen ganz anderenen Namen hat?

buyden 3. Jan 2006 15:53

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Also daran scheint's nicht zu liegen.
Ich hab mir den Namen des Buttons mal in nem Edit ausgeben lassen und der heißt so wie in der OnClick-Prozedur. Die Prozedur wird also ausgelöst.

Was ist denn sonst verkehrt? Fehlt noch was?

jim_raynor 3. Jan 2006 16:31

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Das große Problem ist doch, dass sich die Nummerierung der Pages ändert, wenn du eins löscht. Von daher kannst du garnicht so einfach über ActivePageIndex das Frame ermitteln.

Wenn du das Frame mit TMyFrame.Create(NewTabSheet), statt TMyFrame.Create(Self) angelegst, sollte es reichen das Tabsheet freizugeben (PageControl.ActivePage.Free). Das Frame wird dann automatisch freigegeben, da ja das Tabsheet der Owner des Frames ist.

Weiterhin, ist es schwierig, aus einem OnClick eines Buttons des Frames, das Frame freizugeben, da ja nach dem OnClick noch bissle was mit dem Button passiert. Du solltest also auf deinem Haupt-Formular (nicht im Frame) den Button packen und dann einfach wie oben geschrieben, freigegeben.

buyden 3. Jan 2006 17:25

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
Mit dem Button auf dem MainForm fuktioniert's :lol:
Dann muss ich mir eben was für's Layout einfallen lassen. :gruebel:

Vielen Dank erstmal.

RuX 11. Jan 2006 11:37

Re: Tabsheet samt Inhalt zur Laufzeit erstellen
 
wie passend dieser thread hier! hab grad ein ähnliches problem.

hab über datei->neu->frame einen neue frame erzeugt, und mir dort einen erweiterten konstruktor geschrieben, der als parameter eine referenz auf ein pagecontrol bekommt. in diesem erzeuge ich dann ein tabsheet, und änder dann den parent von den komponenten auf meinem frame auf das tabsheet-objekt. soweit so gut, funktioniert perfekt, tabsheet wird angezeigt etc.
beim destruktor des frames geb ich dann entsprechend das tabsheet wieder frei, allerdings kommt dann die fehlermeldung "Formular kann nicht erstellt werden, zurzeit sind keine mdi-formulare aktiv" (EInvalidOperation).
Hat jemand ne idee?


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:44 Uhr.
Seite 2 von 2     12   

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 by Thomas Breitkreuz