Einzelnen Beitrag anzeigen

DelphiManiac

Registriert seit: 5. Dez 2005
742 Beiträge
 
#6

Re: Exception beim ausblenden von Labels auf einem Tabsheet

  Alt 20. Sep 2007, 11:24
@alzaimar:

Ja da hast du vollkommen Recht, jetzt habe ich auch die Ursache gefunden.
es lag an lbl2Geperrt, dieses lag auf einem JVPanel, den ich dynamisch zur Laufzeit mit
Controlls füttere und diese auch beim OnShow des Tabsheets wieder lösche und neu erzeuge.
Also habe ich mir anscheinend hier mein Label selbst gelöscht ..aaargh (Asche auf mein Haupt..)

Delphi-Quellcode:
(*******************************************************************************
  Prozedur zum Löschen des Panels "PanelKalibrierung"
    --> Jedes Control wird gelöscht [Control = hier eine Kanalansicht], bis
        es keine Controls mehr auf dem Panel gibt
*******************************************************************************)

procedure TfrmMain.LoescheKanalAnsicht;
var i : Integer;
    buffer : TControl;
begin
  if self.PanelKalibrierung.ControlCount > 0 then
  begin
    for i := self.PanelKalibrierung.ControlCount - 1 downto 0 do
    begin
      buffer := self.PanelKalibrierung.Controls[i];
      self.PanelKalibrierung.RemoveControl(self.PanelKalibrierung.Controls[i]);
      buffer.Free;
    end; // for i := self.PanelControls.ControlCount - 1 downto 0
  end; // if self.PanelControls.ControlCount > 0
end; // of procedure TFrmMain.reset;
////////////////////////////////////////////////////////////////////////////////
Ein Label wird doch auch von TControl abgeleitet, oder?

Gruß und dank an alle

Ich habe das Label jetzt vom Panel genommen..
  Mit Zitat antworten Zitat