Delphi Classes-FindComponent 通过文本字符串名称,寻找组件(控件)
引用单元:Classes
函数原型:
function TComponent.FindComponent(const AName: string): TComponent;
var
I: Integer;
begin
if (AName <> '') and (FComponents <> nil) then
for I := 0 to FComponents.Count - 1 do
begin
Result := FComponents[I];
if SameText(Result.FName, AName) then Exit;
end;
Result := nil;
end;
Delphi 使用示例:
var
sLabel: TComponent;
begin
sLabel:= FindComponent("Label1");
If sLabel is TLabel then
TLabel (sLabel ).Caption:=' Delphi';
end;
创建时间:2020.05.27 更新时间: