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 idhttp.post超时导致整个线程停止问题解决

Delphi 从字符串中提取单词的函数

Delphi使用json解析调用淘宝ip地址库rest api 示例

Delphi异常信息捕捉

Delphi win32_diskdrive 硬盘 参数说明

Delphi edit控制字居中，居左，居右

Delphi xe下支持unicode编码方式

delph控制台(console)程序添加图标和版权信息

Delphi 递归实现从m 个集合中 任取一个元素 生成组合

Delphi idhashmessagedigest 获取文件md5

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

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