在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
我觉得叫 "皮肤" 不如叫 "样式" 或 "风格", 因为它可以包含和动作关联的动画. Air.Style Amakrits.Style AquaGraphite.style Blend.Style dark.style FMX.Platform.iOS.style FMX.Platform.Mac.style FMX.Platform.Win.style GoldenGraphite.Style iOS.Style MacBlue.Style MacGraphite.Style RubyGraphite.style Windows7.Style
procedure TForm1.Button1Click(Sender: TObject); begin Application.StyleFileName := '样式文件名'; //如果样式文件和 exe 同目录, 还可以省略路径 end;
procedure TForm1.Button1Click(Sender: TObject); begin Self.StyleBook := StyleBook1; //只作用于当前窗体 end;
procedure TForm1.Button1Click(Sender: TObject); begin StyleBook := TStyleBook.Create(Self); //默认情况下, 窗体的 StyleBook 还没有建立 StyleBook.FileName := '样式文件'; //或者用下一行 //StyleBook.Resource.LoadFromFile('样式文件'); //TStyleBook 是用 Resource(TStrings) 储存数据的 end;
procedure TForm1.Button1Click(Sender: TObject); begin Button1.StyleLookup := 'checkbox'; end; //在设计时可从控件的右键菜单
1、类名(去掉前面的T) + 'style' //这是独立控件的样式名称 2、类名(去掉前面的T) //这是控件子部件的样式名称 3、既然有了命名约定, 控件可以根据自己的类名去套用, 所以会发现大多数控件的 StyleLookup 属性并无赋值 4、修改控件或子部件的样式都应该通过 StyleLookup 属性, 而不是 StyleName(我都觉得 StyleName 这个属性有点多余).
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Memo1.HScrollBar.StyleName); ShowMessage(Memo1.VScrollBar.StyleName); end;
procedure TForm1.Button1Click(Sender: TObject); begin Application.StyleFileName := ''; //程序会自动套用默认样式 Form1.StyleBook := nil; //如果窗体单独设置了样式, 这样恢复 end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论