(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Welcher Cursor ist gerade aktiv
22. Jun 2007, 18:55
Hi Emil
eigentlich ganz einfach. Auch ein TImage hat OnMouseXXXXX-Ereignisse. Du musst dann meinen Code nur etwas modifizieren, sodaß die Mauskoordinaten immer relativ zur Form sind. Das geht mit ClientToScreen und ScreenToClient recht einfach.
Dann würde alle ShapeMouse-Ereignisse auch dem Size Grip Image zuweisen.
Zum Schluss prüfe ich im OnMouseDown-Ereignis, ob der Sender zufällig das Sizegrip-Image ist (über den Komponenten-Namen). Wenn ja, dann spare ich mir die Prüfung, ob die Maus am Rand ist.
Prinzipiell kannst Du mit allen Gadgets (sprich: Images) so verfahren. Ich würde, glaube ich, nur eine zentrale Mausauswerte routine schreiben. Dann ist alles zentral und es ist übersichtlicher.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|