Delphi 10.1 Firemonkey - Erkennen des Mausklicks außerhalb der Komponente

Question

Wie erkennt man den Mausklick außerhalb der Komponente? Ich mache einen benutzerdefinierten Kalender und wenn ich auf das TLabel mit dem präsentierten Datum klicke, erscheint der TCalendar. Es funktioniert. Aber ich möchte den TCalendar verschwinden lassen, wenn sich die Maus außerhalb der Komponente befindet und die Taste gedrückt wird? In VCL kann ich die WindowsMessages verwenden, aber es gibt einen Firemonkey und ich möchte ihn auch bei iOS verwenden.

BR

Answer 1

Versuchen Sie dies. Es erhält Mauspos auf dem Bildschirm (Win, iOS, Android). So können Sie feststellen, wenn der Cursor außerhalb Ihrer Kontrolle ist. Und für MouseDown versuchen Sie, MouseDown in Form zu verwenden.

function MousePos: TPointF; 
var 
    MouseService: IFMXMouseService; 
begin 
    if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseService)) then 
    Exit(MouseService.GetMousePos); 
    Result := PointF(0, 0); 
end;