Delphi XE2 - Komponente wird nicht erzeugt/dargestellt

galagher · Verfasst: Di 03.01.12 17:38

Hallo!

Ich habe eine Komponente TLabeledImage (ist im Package Visual.bpl) selbst entwickelt und konnte sie bisher (Delphi 6) immer nutzen, aber unter Delphi XE2 erhalte ich beim Versuch, sie auf die Form zu ziehen, die Meldung:

Zitat:

Zugriffsverletzung bei Adresse 14F6D116 in Modul 'Visual.bpl'. Lesen von Adresse 000006C.

Im Textfenster darunter:

Zitat:

[14F6D116]{Visual.bpl } LabeledImage.TLabeledImage.GetFont$qqrv (Line 119, "LabeledImage.pas" + 1) + $9
[5008C1A1]{rtl160.bpl } System.TypInfo.GetOrdProp (Line 2027, "System.TypInfo.pas" + 36) + $1
[20FEFB06]{designide160.bpl} ComponentDesigner.FindComponentDependencies (Line 3755, "ComponentDesigner.pas" + 15) + $9
...

Die Liste der Fehler ist noch länger.

Hier Zeile 119 der Datei LabeledImage.pas:

markieren

Delphi-Quelltext

1:
2:
3:
4:

function TLabeledImage.GetFont: TFont;
begin
 Result := FLabel.Font;  // <-- Zeile 119
end;

Das Auskommentieren nützt nichts.

Aber ein Formular, das bereits eine Komponente TLabeledImage enthält, lässt sich problemlos öffnen. Also denke ich, Delphi XE2 kann die Kompo zur Designzeit nicht darstellen. Zur Laufzeit kann ich die Kompo erzeugen und auch damit arbeiten.

Muss ich die Kompo vergessen oder kann ich da was machen?

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Erichgue · Verfasst: Mi 04.01.12 14:32

markieren

Delphi-Quelltext

1:
2:
3:
4:

function TLabeledImage.GetFont: TFont;
begin
 Result := FLabel.Font;  // <-- Zeile 119
end;

Liefert vermutlich NIL zurück.

Ist FLabel beim Aufruf von GetFont instanziert\zugewiesen?

Erich

galagher · Verfasst: Mi 04.01.12 17:15

Erichgue hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:

function TLabeledImage.GetFont: TFont;
begin
 Result := FLabel.Font;  // <-- Zeile 119
end;

Liefert vermutlich NIL zurück.

Ja, offenbar, denn ich hatte, als ich es schaffte, die Komponente auf die Form zu ziehen, die Meldung (sinngemäss): "NIL kann nicht zu TFont zugewiesen werden".

Erichgue hat folgendes geschrieben :

Ist FLabel beim Aufruf von GetFont instanziert\zugewiesen?

Das dachte ich zumindest, denn bisher hat's ja funktioniert.

Habe jetzt Prozedure SetName komplett entfernt, GetFont habe ich so abgeändert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function TLabeledImage.GetFont: TFont;
begin
  if Assigned(FLabel) then
    Result := FLabel.Font;
end;

Jetzt funktioniert's wieder!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

jaenicke · Verfasst: Mi 04.01.12 17:17

Nebenbei als Hinweis:
Du kannst in so einem Fall einfach Delphi beim Package als Hostanwendung eintragen, nen Haltepunkt setzen und kurz nachschauen was los ist. ;-)

galagher · Verfasst: Mi 04.01.12 17:30

jaenicke hat folgendes geschrieben :

Nebenbei als Hinweis:
Du kannst in so einem Fall einfach Delphi beim Package als Hostanwendung eintragen, nen Haltepunkt setzen und kurz nachschauen was los ist. ;-)

Muss ich mir ansehen!

Erichgue hat folgendes geschrieben :

Ist FLabel beim Aufruf von GetFont instanziert\zugewiesen?

Wohl nicht, aber warum funktioniert es dann unter D6?

Vor allem:

galagher hat folgendes geschrieben :

Das Auskommentieren nützt nichts.

Kann aber sein, dass da noch andere Bedingungen gegeben waren, die ich jetzt behoben habe.

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

galagher hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function TLabeledImage.GetFont: TFont;
begin
  if Assigned(FLabel) then
    Result := FLabel.Font;
end;

Wo ist denn da der ELSE Teil?
Denn wenn man sich das ganze über die CPU Anzeige anschaut wird das jetzt zu:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

]function TLabeledImage.GetFont: TFont;
begin
  Result := TFont(Self); // << Speicherüberschreibungen sind da vorprogrammiert
  if Assigned(FLabel) then
    Result := FLabel.Font;
end;

_________________
Ist Zeit wirklich Geld?

galagher · Verfasst: Mi 04.01.12 23:14

AndyB hat folgendes geschrieben :

Wo ist denn da der ELSE Teil?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function TLabeledImage.GetFont: TFont;
begin
  if Assigned(FLabel) then
    Result := FLabel.Font
  else
    Result := Parent.Font;  //Parent.Font wird dzt. auch ohne diese Zeile von Delphi gesetzt,
end;                        //wenn man die Kompo auf die Form legt

Hab's noch nicht getestet, aber das ist doch die Lösung, oder?

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

galagher · Verfasst: Do 05.01.12 19:53

galagher hat folgendes geschrieben :

AndyB hat folgendes geschrieben :

Wo ist denn da der ELSE Teil?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function TLabeledImage.GetFont: TFont;
begin
  if Assigned(FLabel) then
    Result := FLabel.Font
  else
    Result := Parent.Font;  //Parent.Font wird dzt. auch ohne diese Zeile von Delphi gesetzt,
end;                        //wenn man die Kompo auf die Form legt

Hab's noch nicht getestet, aber das ist doch die Lösung, oder?

//Edit:
Korrekt ist:

markieren

Delphi-Quelltext

1:
2:

  else
    Result := Font;

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme