Mouse-Symbol abfragen

[Delbor]

Hi Redeemer
Das war ein versehen meinerseits - darauf falle ich schonmal öfters rein. Andrerseits wärs ja doch schön, wenns sowas wie TForm.FormMouseDown gäbe(nicht: Form.OnMousedown).

Gruss
Delbor

[Redeemer]

TForm.OnMouseDown (Standardname der Ereignisbehandlungsmethode ist eben FormMouseDown) reagiert auf alle Mausevents auf die TForm selbst. Um das zu nutzen, packe alle Komponenten auf ein Panel. Wenn Hilfemodus gestartet, setze Panel.Enabled := False. Dann kannst du mit Form.OnMouseDown, Mouse.CursorPos, Form.Components und TControl.ClientToScreen/ScreenToClient und von mir aus noch Math.InRange herausfinden, worauf geklickt wurde.

[Delbor]

Hi Redeemer

,

Zitat:

...packe alle Komponenten auf ein Panel. Wenn Hilfemodus gestartet, setze Panel.Enabled := False.

Ups!! An sowas habe ich wirklich nicht gedacht!! Vielen dank für den Tip!

Gruss
Delbor