AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls SplitterPanel: Brauche Hilfe für dynamische SubPanels
Thema durchsuchen
Ansicht
Themen-Optionen

SplitterPanel: Brauche Hilfe für dynamische SubPanels

Offene Frage von "Miguel79"
Ein Thema von Miguel79 · begonnen am 2. Nov 2008 · letzter Beitrag vom 3. Nov 2008
 
Miguel79

Registriert seit: 2. Nov 2008
2 Beiträge
 
#1

SplitterPanel: Brauche Hilfe für dynamische SubPanels

  Alt 2. Nov 2008, 14:30
Hallo,

ich habe erst kürzlich begonnen, mich mit Delphi auseinanderzusetzen und stoße leider ein wenig an meine Grenzen.

Das Ziel ist es, ein Splitterpanel als Komponente zu erzeugen, welches von TPanel abgeleitet wird.

Soweit so gut. Das dynamische hinzufügen funktioniert auch problemlos, wenn man allerdings im Designer ein SubPanel entfernt, dann gibt es einen Fehler.

Woran es liegt, kann ich mir auch vorstellen -> SubPanels müssen beim entfernen korrekt aus der ComponentenListe gelöscht werden. Nur WIE???


Es gibt ja bereits viele SplitterPanel auch FreeWare mit Source, aber ich möchte nicht der Verwendung wegen diese Komponente erstellen, sondern weil ich es einfach verstehen möchte, wie es funktioniert.

Eine um bereits funktionierende Routinen verkürzte Version des Quelltextes habe ich beigefügt.

Vielleicht hat ja jemand eine Idee und könnte es mir erklärem, wie ich die SubPanels wieder entfernen und den Speicher freigeben kann.

Vielen Dank schonmal im Voraus,
Miguel



Delphi-Quellcode:
unit SplitterPanel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls;

type
  TSplitterPanel = class(TPanel)
  private
    _SubPanelQuantity : Integer;
    _SubPanel : TPanel;

    function GetSubPanelQuantity : Integer;
    procedure SetSubPanelQuantity(_Value: Integer);
  protected

  public
    constructor Create(_aOwner: TComponent); override;
    destructor Destroy; override;
  published
    property SubPanelQuantity : Integer Read GetSubPanelQuantity Write SetSubPanelQuantity;
    property SubPanel : TPanel Read _SubPanel;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('TestComponents', [TSplitterPanel]);
end;

constructor TSplitterPanel.Create;
begin
  inherited Create(_aOwner);
  _SubPanelQuantity := 1;
end;

destructor TSplitterPanel.Destroy;
begin
  inherited Destroy;
end;



function TSplitterPanel.GetSubPanelQuantity: Integer;
begin
  result := _SubPanelQuantity;
end;

procedure TSplitterPanel.SetSubPanelQuantity(_Value: Integer);
var
  i : Integer;
begin
  If _Value <> _SubPanelQuantity Then
  Begin
    If _Value > _SubPanelQuantity Then
    Begin
      With _SubPanel Do
      Begin
        Name := 'SubPanel' + IntToStr(Self.ComponentCount-1);
      End;
      _SubPanel := TPanel.Create(Self.Parent);
      _SubPanel.Parent := Self;
      _SubPanel.Name := 'SubPanel' + IntToStr(Self.ComponentCount);
    End
        Else
    Begin

    End;
    _SubPanelQuantity := _Value;
  End;
End;
end.
  Mit Zitat antworten Zitat
 


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 15:52 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