PageControl , Ereignis wenn neue TabSheet angeklickt wurde

[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!