Eigene Image-Komponente mit Hover-Effekt

[uwewo]

Hallo Luckie,

erweitere Deinen Code um

Delphi-Quellcode:

private
  procedure SetPictureNormal(Value: TPicture);
...
published 
  property PictureNormal: TPicture read FPictureNormal write SetPictureNormal;
...
procedure TDWImage.SetPictureNormal(Value: TPicture);
begin
  FPictureNormal.Assign(Value);
end;

denn Du weist FPictureNormal kein Bild zu, somit kann er auch nichts anzeigen