[Android] Edit-Felder nicht sichtbar

[GS1200]

Hallo zusammen,

hat jemand "diese" Lösung auch für ein Android-OS? Ich habe das Beispiel verwendet und da wird mein Bildschirm verwurschtelt. Steht ja auch oft Android ToDo....

Hier habe ich die uses angepasst:

Delphi-Quellcode:

uses
{$IFDEF IOS}
  iOSApi.Foundation, iOSApi.UIKit, FMX.Platform.iOS,
{$ENDIF}
{$IFDEF ANDROID}
  Androidapi.Jni.GraphicsContentViewText, FMX.Platform.Android,
{$ENDIF}
  System.SysUtils, FMX.Memo;

In der Unit "ControlMover" habe ich ToDo Android wie folgt ergänzt:

Delphi-Quellcode:

function TControlMover.GetViewRect: TRectF;
{$IFDEF IOS}
var
  ARect: NSRect;
begin
  ARect := WindowHandleToPlatform(FForm.Handle).View.bounds;
  Result := RectF(ARect.origin.x, ARect.origin.y, ARect.size.width - ARect.origin.x, ARect.size.height - ARect.origin.y);
end;
{$ELSE}
var
  ARect: TRectF;
begin
  // TODO - Android
  ARect := WindowHandleToPlatform(FForm.Handle).Bounds; // View.bounds;
  Result := RectF(ARect.Ceiling.Location.x, ARect.Location.y, ARect.size.width - ARect.Location.x, ARect.size.height - ARect.Location.y);
end;
{$ENDIF}

Aber irgendwie schiebt sich es sich nicht hoch. Ich habe das Beispiel mal angehängt. Vielleicht sieht hier jemand für Android den Fehler, welchen ich wohl übersehe.
Hier habe ich das Beispiel her: http://delphi.radsoft.com.au/category/code-tips/

Danke.

Gruß

Axel