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;
XE5 程序中标识win max android ios程序代码分别实现
最新推荐文章于 2024-05-27 16:19:43 发布