function android_app_create(activity: PANativeActivity; savedState: Pointer; savedStateSize: size_t): Pandroid_app; var android_app: Pandroid_app; PipeDescriptors: TPipeDescriptors; attr: pthread_attr_t; thread: pthread_t; begin android_app := Pandroid_app(__malloc(SizeOf(TAndroid_app)));...
1.使用Delphi IDE的 Component -> New Component 菜单 2.按照向导逐步完成 第一步: 第二步: 第三步: Class Name 输入 TAli_SMS_Component 表示控件类名称 Palette Page 输入LW 需要安装的面板名称 第四步: 第五步: 完成以后就可以进入控件实现界面。 3.控件工程文件 {$R *.res} {$IFDEF IMPLICITBUILDING ...
begin {$IFDEF ANDROID} // Note we can alternatively use literal strings: // 'android.permission.ACCESS_COARSE_LOCATION' // 'android.permission.ACCESS_FINE_LOCATION' // according to the documentation: // https://developer.android.com/reference/android/Manifest.permission#ACCESS_COARSE_LOCATION // ...
function android_app_create(activity: PANativeActivity; savedState: Pointer; savedStateSize: size_t): Pandroid_app; var android_app: Pandroid_app; PipeDescriptors: TPipeDescriptors; attr: pthread_attr_t; thread: pthread_t; begin android_app := Pandroid_app(__malloc(SizeOf(TAndroid_app)));...
ENTCriticalSection = class(TSynchroObject) {$IFDEF POSIX} private type TCritSec = record FSync: ...
adb shell 启动，停止 android 应用程序一、adb启动 应用程序二、adb停止 应用程序Excel应用程序无法正常...
{$IFDEF ANDROID} ProcessVirtualKeyboardEvent; {$ENDIF} end; 2. 完成如下事件。其实完全可以对每个输入框的按下事件处理。参考 4 。 procedure TForm1.FormVirtualKeyboardHidden(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect); begin ...
Fixed an IFDEF compatibility problem on mobile platforms (Thanks to Marco Cotroneo) Samples are syntax compatible with Delphi 10.1 Berlin or better (Thanks to Mark Lobanov) Fix danieleteti#573 (Thanks to DeddyH the hints) Fix danieleteti#574 (Thanks to DeddyH the hints) Breaking Changes...
Fixed an IFDEF compatibility problem on mobile platforms (Thanks to Marco Cotroneo) Samples are syntax compatible with Delphi 10.1 Berlin or better (Thanks to Mark Lobanov) Fix #573 (Thanks to DeddyH the hints) Fix #574 (Thanks to DeddyH the hints) Breaking Changes in 3.2.2-nitrogen ...
{$IFDEF AUTOREFCOUNT} FANSIEncoding.__ObjAddRef; //<---瞧,易博龙和我们一样"无赖" {$ENDIF AUTOREFCOUNT} end; Result := FANSIEncoding; end; classdestructorTEncoding.Destroy; begin FreeEncodings; //销毁代码 end; classprocedureTEncoding.FreeEncodings; begin FreeAndNil(FANSIEncoding); FreeAndNil...