怎样动态设置suiForm的UIStyle属性

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Self.suiForm1.UIStyle:='MacOS';
end;[Error] Unit1.pas(29): Incompatible types: 'TsuiUIStyle' and 'String'

解决方案 »

  1.   

    suiMage->UIStyle = MacOS;
      

  2.   

    suiMage->UIStyle := MacOS;
      

  3.   

    Self.suiForm1.UIStyle:=MacOS;这下对了吧！
      

  4.   

    呵呵suiForm1.UIStyle:=MacOS;应该 没有问题
      

  5.   

    procedure TForm1.ComboBox1Change(Sender: TObject);
    begin
    suiForm1.UIStyle:=MacOS;
    end;[Error] Unit1.pas(29): Undeclared identifier: 'MacOS'
      

  6.   

    看看带的Demo就可以了。基本的用法都包含了。
      

  7.   

    什么是Demo我不懂的呀你可不可以说详细一点呀