delphi XE5 程序中标识win max android ios程序代码分别实现

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);
begin
 {$IFDEF MSWINDOWS}
  StyleBook := StyleBookWin;
 {$ENDIF}
 {$IFDEF MACOS}
  StyleBook :=  StyleBookMac;
 {$ENDIF}
 {$IFDEF Android}
  StyleBook :=  StyleBookAndroid;
 {$ENDIF}
 {$IFDEF iOS}
  StyleBook :=  StyleBookiOS;
 {$ENDIF}
end;
 

相关阅读 >>

Delphi2010 关于record类型rtti反射的用途和方法

Delphi在64位系统下写注册表注意事项

Delphi 关于运算符

解放程序员！Delphi带来app开发革命

Delphi判断文件是否正在被使用

Delphi 压缩与修复access数据库

Delphi 10.x ide界面

Delphi vista和win7下如何弹出uac

检查是否在Delphi xe7中启用或禁用了android蓝牙

Delphi中判断操作系统是否是windows7

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi XE5 程序中标识win max android ios程序代码分别实现