10.2.2之前
|
10.2.2版
|
procedure TVKListener.onVirtualKeyboardShown;
begin
TThread.Synchronize(nil, procedure
begin
FKeyboardService.SetState(TVirtualKeyboardAndroid.TvkbState.Shown);
FEvent.SetEvent;
end);
end;
|
procedure TVKListener.onVirtualKeyboardShown;
begin
WaitingForContentChanged(Self);
TThread.Synchronize(nil, procedure
begin
FKeyboardService.SetState(TVirtualKeyboardAndroid.TvkbState.Shown);
FEvent.SetEvent;
end);
end;
|
TInteractiveGesture.DoubleTap:
begin
DoubleTapRecognizer := TUITapGestureRecognizer.Alloc;
DoubleTapRecognizer := TUITapGestureRecognizer.Wrap(DoubleTapRecognizer.initWithTarget(GetObjectID, sel_getUid(‘HandleDoubleTap:’)));
DoubleTapRecognizer.setNumberOfTapsRequired(2);
DoubleTapRecognizer.setDelegate(GetObjectID);
View.addGestureRecognizer(DoubleTapRecognizer);
DoubleTapRecognizer.release;
end;
procedure TFMXViewBase.HandleDoubleTap(gestureRecognizer: UITapGestureRecognizer);
var
TouchPoint: NSPoint;
begin
if gestureRecognizer.state = UIGestureRecognizerStateEnded then
begin
TouchPoint := CorrectLocationInView(gestureRecognizer, View, Form);
DblTap(TouchPoint.Y, TouchPoint.Y);
end;
end;
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition