ein Beispiel für die Messages hatte ich erstmal weg gelassen da ich dachte das es sich vielleicht schon erledigt hat das problem weil das TImage nie den Focus bekommen kann (per Tab etc.)
Beispiel:
Delphi-Quellcode:
type
TImage = class(ExtCtrls.TImage)
private
procedure FCMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure FCMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
end;
[...]
procedure TImage.FCMMouseEnter(var Msg: TMessage);
begin
//Was soll passieren wenn die maus drüber kommt
//Beispiel: Laden eines andere Bildes
Picture.LoadFromFile('BildMausDrüber');
end;
procedure TImage.FCMMouseLeave(var Msg: TMessage);
begin
//Was soll passieren wenn die maus weg geht
//Beispiel: Laden eines andere Bildes
Picture.LoadFromFile('BildMausAußerhalb');
end;