Hmm das funktioniert, doch ich suchte eigendliche eine globalere Lösung, deshalb hatte ich versucht es auf ein in der
VCL erstelltes Image zu beziehen. Deshalb funktionierte meines nicht.
Das wird ja eine Menge Code für jeden Button werden.... Leider kann ich jetzt nicht mehr die Vorzüge der
VCL nutzen um die anderen Eigenschaften und Ereignisse zu setzen.
Vielen Dank !
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Hintergrund.Picture.LoadFromFile(extractfilepath(paramstr(0))+'back.jpg');
img := TBetterImage.Create(self);
with img do
begin
Parent := self; //<--- was steckt dahinter? ohne dem kein Image sichtbar !
SetBounds(0, 225, 210, 60);
OnMouseEnter := ImageMouseEnter;
OnMouseLeave := ImageMouseLeave;
Picture.LoadFromFile(extractfilepath(paramstr(0))+'button.jpg');
end;
end;
procedure TForm1.ImageMouseEnter(Sender: TObject);
begin
img.Picture.LoadFromFile(extractfilepath(paramstr(0))+'buttonB.jpg');
end;
procedure TForm1.ImageMouseLeave(Sender: TObject);
begin
img.Picture.LoadFromFile(extractfilepath(paramstr(0))+'button.jpg');
end;