Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - OnMouseMove - Mouseover effect
Jukka - Di 12.09.06 21:08
Titel: OnMouseMove - Mouseover effect
Ich will bei einem bild einen MouseOver effect machen jedoch geht das nicht wie gewollt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| var OnImage : Boolean = False;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
OnImage := not(OnImage);
if OnImage then image1.picture.LoadFromFile('1.gif')
else image1.picture.LoadFromFile('2.gif')
end; |
Jedoch das bild geht rein ja aber nichtmerh raus, bitte um hilfe
MfG Jukka
Coder - Di 12.09.06 23:18
image1.picture.LoadFromFile('2.gif') machst du im OnMouseMove der Form. :wink:
Jukka - Mi 13.09.06 21:10
 Coder hat folgendes geschrieben: |
| image1.picture.LoadFromFile('2.gif') machst du im OnMouseMove der Form. :wink: |
simpel .. aber logisch :)
Danke
Coder - Mi 13.09.06 22:23
Achso
Wenn du das so machst wird bei jeder Mausbewegung das Bild geladen.
Das ist Performancetechnisch etwas ungünstig. :wink:
Am besten du überprüfst vorher ob das Bild schon geladen wurde.
Noch besser wäre wenn du die Bilder aus einer ImageList oder einer Ressource lädst.
MfG
Jukka - Do 14.09.06 15:21
Ja schon gemerkt ^^ hab ne Varibale Boolean, geamcht und gesetzt und dann das bild aus ner ressource gelesen die ich extra einbinde
trodzdem danke ^^
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!