Toon posts:

OnMouseOver event Delphi

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik wil graag een plaatje laten veranderen als je er met de muis overheen gaat. Als de muis er overheen is geweest moet het oorspronkelijke plaatje terugkomen. Iemand een idee hoe ik dit het makkelijkst doe?

Bedankt!

  • ArieProductions
  • Registratie: Januari 2002
  • Laatst online: 27-11-2024
Uit je OnMouseMove event kan je de coordinaten van je muis halen, die vervolgens matchen met de coordinaten met je plaatje.

"Quidquid latine dictum sit, altum videtur" (Whatever is said in Latin sounds profound)


Verwijderd

Topicstarter
Hoe kan ik de coordinaten van de muis dan krijgen?

  • whoami
  • Registratie: December 2000
  • Laatst online: 11:04
Al eens de procedure MouseMove bekeken?
code:
1
2
3
procedure TForm1.Panel1MouseMove(Sender : TObject; 
                       Shift  : TShiftState; 
                       X, Y   : Integer);

Wat zijn die X en die Y denk je?

https://fgheysels.github.io/


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Als er geen OnMouseLeave is moet je even zoeken op Google, kan met Windows messages.

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Knutselsmurf
  • Registratie: December 2000
  • Laatst online: 06-09 21:50

Knutselsmurf

LED's make things better

Op maandag 03 juni 2002 17:27 schreef jelmervos het volgende:
Als er geen OnMouseLeave is moet je even zoeken op Google, kan met Windows messages.
Ik weet niet niet zeker, maar dat zou nog kunnen met OnExit.

- This line is intentionally left blank -


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

OnExit heeft betrekking op de focus, en niet direct op de muis.

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Knutselsmurf
  • Registratie: December 2000
  • Laatst online: 06-09 21:50

Knutselsmurf

LED's make things better

Op maandag 03 juni 2002 19:25 schreef jelmervos het volgende:
OnExit heeft betrekking op de focus, en niet direct op de muis.
In dat geval kun je de MouseMove-event van je Form Ook nog gebruiken.....

- This line is intentionally left blank -


Verwijderd

Makkelijkst is een eigen component te maken dat OnMouseEnter en OnMouseLeave events, bevat, dan hoef je er voor de rest van je programmeercarrière niet meer over na te denken. Hoe? Dat staat hier min of meer uitgelegd: http://www.dts.nl/support/helpdesk/delphi/425/d222200409.htm

Op de manier die bij 'antwoord' is beschreven implementeer je de mousemessages. Hierbij ga ik er maar even vanuit dat je al wat ervaring met Delphi hebt en zelf een component kunt maken dat afgeleid is van bijv. TPicture.
Pagina: 1