Einzelnen Beitrag anzeigen

Tomski

Registriert seit: 17. Jun 2010
19 Beiträge
 
Delphi 2 Desktop
 
#3

AW: Abstrakter Fehler beim freigeben einer Komponente unter Delphi XE

  Alt 24. Aug 2012, 12:17
Hier der 'With-Block', wie gesagt die Komponente und alle auf der Komponente erzeugten Komponenten funktionieren einwandfrei und unter Delphi 2007 gibts diese Exception nicht. Es liegt also sehr wahrscheinlich an einer internen Änderung des Handlings unter Delphi.

With TAdvPanel.Create(self) do begin //ContainerPanel erzeugen
Parent := PanelSpielbericht;
Name := 'SatzEditPanel'+IntToStr(PanelNr); BevelOuter := TBevelCut(bvNone); Color := clMaroon;
Caption.Height := 20; Caption.TopIndent := Trunc((SatzEditPanelArray[DivAnzGewinnSaetze,2]-Caption.Height)/2); Caption.Color := clMaroon;
Caption.Font.Color := clYellow; Caption.Font.Name := 'Arial'; Caption.Font.Size := 11; Caption.Font.Style := [fsBold]; Caption.Visible := true;
Left := SatzEditPanelArray[DivAnzGewinnSaetze,0]; Top := ZeilenPosArray[PanelNr];
Height := SatzEditPanelArray[DivAnzGewinnSaetze,2]; Width := SatzEditPanelArray[DivAnzGewinnSaetze,3];
end;

Grüßle
  Mit Zitat antworten Zitat