Problem mit dem Wechsel des Parents

[Guido1308]

Hallo,

ich habe ein Problem mit dem Wechsel des Parents eines Panels, in dem sich eine ListView befindet. Wenn die ListView während des "Parentwechsels" auf visible False gesetzt ist, dann "verliert" sie alle ihre Items. Setzt man sie anschließend auf visible true, sind sie zwar alle wieder da, allerdings würde ich gerne wissen, ob man das vielleicht vorher schon abfangen kann. Mir ist klar, dass ich das Problem verhindern kann, indem ich die ListView auf visible true lasse, ich möchte aber wissen, warum dieses Problem in dieser Konstellation der Eigenschaften auftritt.

Hier ist der Beispiel Source Code (vereinfacht) - Delphi 7:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ListView1: TListView;
    Button1: TButton;
    ListView2: TListView;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Counter: Integer;

begin

  ListView1.Visible:=False;

  Panel2.Parent:=Panel1;

  For Counter:=0 To ListView1.Items.Count-1 Do
    Begin
      ListView2.Items.Add();
      ListView2.Items[Counter]:=ListView1.Items[Counter];
    end;


end;

end.

Kennt jemand von euch dieses Problem, ist es vielleicht ein Bug in der ListView-Komponente? Bei anderen Komponenten, wie TEdit oder TComboBox tritt dieser "Effekt" nicht auf.

[sniper_w]

Also bei mir ist alles in Ordnung , egal ob sichtbar oder nicht.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 var a:integer;
begin
 Randomize;
 for a:=0 to 10 do ListBox1.Items.Add(inttostr(random(199)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Visible := False;// Panel1 ist Parent von ListBox1

Panel1.Parent := Panel2;

ListBox1.Visible := True;
end;

[Guido1308]

Erstmal danke für deine Hilfe!

Leider Hilft mir dass nicht weiter, weil dieses Problem nicht bei allen Listen-Komponenten auftritt. Probleme hab ich bis jetzt nur bei der ListView und TreeView Komponente festgestellt.

Zitat:

Also bei mir ist alles in Ordnung , egal ob sichtbar oder nicht.

Probier es mal mit einer ListView statt einer ListBox.

[sniper_w]

Ebenfalls kein Problem mit einer TListView Componente.