Bestens! So sieht das ganze nun aus und gibt zuverlässig die Mausposition an:
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var Pt : TPoint;
begin
if (Msg.message = WM_MOUSEMOVE) then
begin
Pt := ScreenToClient(Mouse.CursorPos);
Label6.Caption := Format('%d:%d', [Pt.X, Pt.Y]);
end;
end;
Zu muss ich die möglichen Flächen definieren können. Dabei muss ich pro Fläche zwei Points bzw. 4 Integer speichern.
Erstelle ich dafür nun eigene Records und verwalte die in einem Array oder geht das auch geschickter? Ich muss ja anschließend bei jeder Mausbewegung die gesamte Liste durchgehen und schauen, ob sich der Mauszeiger in einem dieser Felder befindet. Entsprechend wäre es super, wenn das performanceoptimiert gehandhabt werden könnte. Was ist dafür die beste Vorgehensweise?