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 memo加个prompttext

Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值

Delphi窗口显示和关闭的时候出现动画效果

Delphi判断不同格式的时间是否相等

Delphi 字符串加单引号

Delphi 在窗体上创建自己的光标并输入文字

Delphi 获取本地ip地址源码

Delphi调试技巧

Delphi 获取计算机名和用户名

Delphi xe5 android 调用手机震动

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

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