查找嵌入式TFrame
查找嵌入式TFrame
提问于 2018-08-15 22:16:15
我有一个继承自TBaseFrame = TFrame (TFrame)的类
其中有一个具有相同继承性的嵌入式TFrame
TViewStandardMovimentoFinanceiro = class(TFrameBase)
ViewStandardEdiMovimentoFinanceiro1: TViewStandardEdiMovimentoFinanceiro;
TViewStandardEdiMovimentoFinanceiro = class(TFrameBase)
TFrameBase = class(TFrame, INaharView, INaharViewAdapter)创建父级设置为主窗体(特别是THorzScrollBox)的TViewStandardMovimentoFinanceiro
在TViewStandardMovimentoFinanceiro框架内部，我尝试了使用子列表的经典方法，但没有发现嵌入的TFrame。
我也尝试过使用父母的孩子列表，但没有成功。组件列表也是如此
我想要做的是找到所有可用的TFrames，这样我就可以请求一个接口(我知道如何做)
我遗漏了什么？
按照下面的建议，我已经实现了这段代码用于测试：
function TFrameBase.LocateControl(AControl: TControl; ADomainName: string): TControlHandler;
var
NaharView: INaharView;
ControlHandler: TControlHandler;
i: integer;
begin
result := nil;
for i := 0 to AControl.ChildrenCount - 1 do
if (AControl.Children[i] is TFrame) and (AControl.Children[i] <> Self) then
if Supports((AControl.Children[i] as TFrame), INaharView, NaharView) then
begin
ControlHandler := NaharView.Control[ADomainName];
if Assigned(ControlHandler) then
exit(ControlHandler);
end;
end;
function GetUltimateParent(Control: TControl): TControl;
begin
if Control.Parent is TControl then
Result := GetUltimateParent(TControl(Control.Parent))
else
Result := Control;
end;
function TFrameBase.GetNaharControl(ADomainName: string): TControlHandler;
var
i: integer;
ControlHandler: TControlHandler;
begin
if NaharControls.ContainsKey(ADomainName) then
Exit(NaharControls.Items[ADomainName])
else
begin
ControlHandler := LocateControl(GetUltimateParent(Self), ADomainName);
if Assigned(ControlHandler) then
exit(ControlHandler);
end;
raise EViewControlDomainNameNotFound.Create(ADomainName);
end;当LocateControl被执行时，它会转到几个级别的顶部，从那里它试图在孩子列表上迭代，它在一个充满控件的表单中只包含3个项目。
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-08-16 16:34:01
正如Ondrej所述，您的函数LocateControl需要是递归的。像这样的东西
function TFrameBase.LocateControl(AControl: TControl; ADomainName: string): TControlHandler;
var
NaharView: INaharView;
ControlHandler: TControlHandler;
i: integer;
begin
result := nil;
for i := 0 to AControl.ChildrenCount - 1 do
begin
if (AControl.Children[i] is TFrame) and (AControl.Children[i] <> Self) then
begin
if Supports((AControl.Children[i] as TFrame), INaharView, NaharView) then
begin
ControlHandler := NaharView.Control[ADomainName];
if Assigned(ControlHandler) then
begin
exit(ControlHandler);
end;
end;
end;
// recursive bit
Result := LocateControl(AControl.Children[i], ADomainName):
if assigned( Result ) then
begin
exit;
end;
end;
end;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51860456
复制相关文章
相似问题
腾讯云开发者
