[FMX]获取控件样式中的指定项目以便进行调节

时间:2023-12-16 09:56:02

[FMX]获取控件样式中的指定项目以便进行调节

2017-03-26 • C++ BuilderDelphi教程 • 暂无评论 • swish •浏览 650 次

FMX 的样式丰富了我们的设计,但我们在运行时想改变特定的Style的属性却没有直接的办法,下面的函数提供了一种途径,让你找到特定的样式,然后进行处理。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function FindStyleByName(AParent:TFMXObject;AName:String):TFMXObject;
  var
    I: Integer;
    AObj:TFMXObject;
  begin
  Result:=nil;
  for I := 0 to AParent.ChildrenCount-1 do
    begin
    AObj:=AParent.Children[I];
    if AObj.StyleName=AName then
      Result:=AObj
    else
      Result:=FindStyleByName(AObj,AName);
    if Assigned(Result) then
      break;
    end;
  end;

用法示例:

1
2
3
4
5
6
7
procedure TForm1.btnLeftApplyStyleLookup(Sender: TObject);
var
  AText:TButtonStyleTextObject;
begin
AText:=FindStyleByName(Sender as TFMXObject,'text') as TButtonStyleTextObject;
AText.NormalColor:=TAlphaColors.White;
end;

在 btnLeft 的 OnApplyStyleLookup 里,我们将按钮的颜色改变为白色。

FMX

原创文章转载请注明:转载自:[FMX]获取控件样式中的指定项目以便进行调节