PageControl , Ereignis wenn neue TabSheet angeklickt wurde

[shareholder]

Bei folgendem Code tritt eine AV (Access Violation) auf.

Delphi-Quellcode:

procedure TMainForm.PageControl1Chang(ing/e)(Sender: TObject;
  var AllowChange: Boolean);
begin
  // Funktion zum Löschen der ListView;
  LoeschenLV;
end;

Wie würdet Ihr das anstellen ?

edit: Das Ereignis soll für alle TabSheets sein!

[alcaeus]

Ich würds im OnChange machen. Und was macht eigentlich deine LoeschenLV? Vielleicht löst diese die AV aus?

[shareholder]

ja, das ist ja das problem!

sofern die prozedur LoeschenLV; im OnChange - Event steht,
wird eine AV ausgelöst.

Edit: Die Prozedur löscht den Inhalt und alle Spalten.

[alcaeus]

Ohne code wirst du hier nicht viel erreichen...poste mal die Prozedur LoeschenLV, dann kann ich vielleicht auch sagen, wo das Problem ist.

[shareholder]

Delphi-Quellcode:

procedure TMainForm.ResetLV;
begin
    if (LVExts.ViewStyle = vsReport) then
      LVExts.Columns.Clear;

    if (LVExts.LargeImages.Count > 0) then
      LVExts.LargeImages.Clear;
    if (LVExts.SmallImages.Count > 0) then
      LVExts.SmallImages.Clear;

    LVExts.Clear;
end;

danke!

[alcaeus]

Hmm, sieht ganz ok aus, wobei der Name da was vermuten lässt...handelt es sich sicher um die richtige Prozedur? Versuche mal, einzeln die if-Blöcke zu aktivieren, und den Rest auszukommentieren. Vielleicht funktioniert das..

[Gollum]

Hallo,

mich wundert etwas, dass Du die Images löscht?

Vielleicht könnte statt

Delphi-Quellcode:

...
LVExts.Clear 
...

folgendes helfen:

if (LVExts.Items.Count>0) then LVExts.Items.Clear;

[shareholder]

ok, danke. das war eine gute idee !

hier dran liegt's:

Delphi-Quellcode:

if (LVExts.LargeImages.Count > 0) then 
  LVExts.LargeImages.Clear; 
if (LVExts.SmallImages.Count > 0) then 
  LVExts.SmallImages.Clear;

aber was genau ist falsch?

edit: Ok, Gollum war schneller ! Danke Euch beiden!
edit2: Ich habe Gollum's Variante genommen.

Problem gelöst

[Gollum]

Hallo,

da ich nicht genau weiss, wie Du die Liste füllst, kann ich nur raten:

Du weist Deinen ListItems über ImageIndex einen Index der ImageList zu. Wenn Du nun die Einträge der Imagelist vor den Einträgen der Listview löscht, ist die Referenz nicht mehr gegeben.

U.U. könnte zuerst ein löschen der Listvieweinträge und daran anschließend ein löschen der Imagelisteinträge klappen.

[shareholder]

kann es sein, das mit ListView.Clear; auch gleich die imagelists mitgelöscht werden?

edit: nein, das kann nicht sein. hab nach dem löschen der Elemente die Index der Images aus der ImageList im memo ausgegeben.