Zugriffsverletzung in rtl70.bpl bei eigener Komponente und Bitmapzuweisung

[Helmi]

Hallo,

ich hab mir ein Edit-Feld gebastelt, das im rechten Bereich einen SpeedButton beinhaltet.

Die Logik/Ausführung hab ich dem SpinEdit abgekupftert.

Soweit funktionierts auch.
Ausser ich füge im DesignMode von Delphi der Property "Picture" ein Bitmap von Hand zu.
Dann bekomm ich folgende Fehlermeldung:

Zitat:

---------------------------
Fehler
---------------------------
Zugriffsverletzung bei Adresse 40005A0C in Modul 'rtl70.bpl'. Lesen von Adresse 53EC8B31.
---------------------------
OK
---------------------------

oder:

Zitat:

---------------------------
Anwendungsfehler
---------------------------
Exception EInvalidPointer in Modul rtl70.bpl bei 00003078.

Ungültige Zeigeroperation.


---------------------------
OK
---------------------------

Vermutlich hat es mit dieser procedure zu tun:

Delphi-Quellcode:

procedure TAlignLabeledButtonEdit.SetBitmap(Value: TBitmap);
begin
  //Wird aufgerufen, wenn sich die Variable "FBitmap" ändert
  FBitmap := Value;

  FButton.Glyph := Value;
  Invalidate;
end;

Wobei das Bitmap richtig im Button dargestellt wird.

Wenn die o. g. Meldungen auftauchen, dann kann ich Delphi nur noch via Task-Manager
abschiessen, weil es sich nicht mehr normal beenden lässt.

Leider kann ich auch nicht wirklich das Problem diagnostizieren.
Ich vermute ein Pointer-Problem.

Anbei mal meine Pas-Datei der Komponente.

Vielleicht kann jemand mal ein Auge drauf werfen...

[Bummi]

ich komme gerade nicht zu testen, aber müßte der Teil

FBitmap := Value;
FButton.Glyph := Value;

nicht heißen

FBitmap.Assign(Value);
FButton.Glyph := FBitmap;

[mleyen]

Hi, du hast FBitmap nirgends initialisiert.
Füg mal dem Constructor entweder
FBitmap := TBitmap.Create hinzu,
oder verhindere die Nutzung im Designmodus durch die Prüfung auf csDesigning in ComponentState

[Helmi]

Zitat von mleyen:

Hi, du hast FBitmap nirgends initialisiert.
Füg mal dem Constructor entweder
FBitmap := TBitmap.Create hinzu,
oder verhindere die Nutzung im Designmodus durch die Prüfung auf csDesigning in ComponentState

Ich vergaß zu erwähnen, dass FBitmap im Constructior schon erzeugt wird.
War meine erste Vermutung

Zitat von Bummi:

ich komme gerade nicht zu testen, aber müßte der Teil

FBitmap := Value;
FButton.Glyph := Value;

nicht heißen

FBitmap.Assign(Value);
FButton.Glyph := FBitmap;

Ich bin gerade etwas überrascht, dass der o. s. Code die Fehler nicht mehr liefert
Ich hatte eigentlich das Gleiche schon ausprobiert - aber trotzdem kam der Fehler

[DataCool]

Hi,

es sollte eigentlich :

Delphi-Quellcode:

FBitmap.Assign(Value);
FButton.Glyph.Assign(FBitmap);

heisen, teste das mal.

Greetz Data