Rollover komponent

prøv at smide 2 imagelist på din form, indlæs billedet som skal skifte når musen er over knappen.

I imagelist2 indlæser du billedet som skal vises når du forlader knappen.

følgende kode índsætter du i knappen's onmousemove
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(rx1.Tag, Bitmap);
  rx1.Glyph.Assign(Bitmap);
  Bitmap.Free;
  rx1.Tag := (rx1.Tag + 0) mod 1;

følgende kode indsætter du i onmousemove i din form:



var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList2.GetBitmap(rx1.Tag, Bitmap);
  rx1.Glyph.Assign(Bitmap);
  Bitmap.Free;
  rx1.Tag := (rx1.Tag + 0) mod 1;

rx1 er navnet på din knap.

Der er efter hvad jeg har fundet ud af, ingen onmouseover i Delphi 7, kan du hjælpe med det???

næ... men der er en OnMouseMove, i Events for hver components...brug den.

Aktiveres den når musen flyttes over komponenten, fordi hvad kan man så finde ud af hvornår musen flytter sig ud igen?

hvis du har kigget på min kode, vil du se der er 2 eventer

når musen er over componentet //knappens OnMouseMove

og når musen forlader componentet// Formens OnMouseMove, når den forlader
componentet bliver en event udløst, som gør at billedet skiftes ud.

Her er en nemmere metode:


procedure TForm1.rx1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(rx1.Tag, Bitmap);
  rx1.Glyph.Assign(Bitmap);
  Bitmap.Free;
  rx1.Tag := (rx1.Tag + 0) mod 1;
  end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
rx1.Glyph.LoadFromFile('bulboff.bmp');//henter bulboff i dit project bibliotek
end;

skulle du stadig have problemer med eksemplet kan jeg sende et til dig.

den kræver kun 1 imagelist

en anden mulighed er at installere det her component

kopier det til en editor og gem filen som imageEx.pas

http://www.swissdelphicenter.ch/en/showcode.php?id=1068

installer componentet og du kan se det i additional [imageEx]
I events for imageEx er der 2 eventer OnMouseLeave - OnMouseEnter
du kan lægge imageEx over en knap sæt den til center = true

procedure TForm1.ImageEx1MouseEnter(Sender: TObject);
begin
imageex1.Picture.LoadFromFile('bulbon.bmp');//mus over billede
end;

procedure TForm1.ImageEx1MouseLeave(Sender: TObject);
begin
imageex1.Picture.LoadFromFile('bulboff.bmp');//mus forlader billede
end;

Det giver også en pænere overgang når der skiftes billede, noget bedre end at bruge en Imagelist dvs det flimre ikke når musen bevæger sig på formen.

Du har brug for et TImage der har fået tilføjet OnMouseLeave og OnMouseEnter.
Det kan du selv lave

Læs accepteret svar her:
http://www.eksperten.dk/spm/227666

Erik

har du fået løst dit problem?

1000 tak... det virker forneemt...