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

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

2017-03-26 • C++ Builder、Delphi、教程 • 暂无评论 • 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]获取控件样式中的指定项目以便进行调节