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;
 

相关阅读 >>

Delphi 泛型容器单元(generics.collections) tdictionary<t>

Delphi shgetfileinfo函数获取任何文件大图标

Delphi 泛型数组 strsplit 字符串分割

Delphi xe2读取内存偏移数据代码

Delphi vcl 鼠标左键长按功能的实现

tclientsocket和tserversocket用法

Delphi 获取两字符串之间的内容

Delphi获取控件界面图像“新招”

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

Delphi d10.x安卓app开发中简单使用原生toast

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

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