delphi - 无法更改 Delphi 中的 TEdit 文本

Question

我在运行时将组件添加到表单中，并且还添加了更改字典中这些组件的属性的事件，以便稍后调用它们。

TEventBeforeInsert = function(var AComponent: TComponent; AForm: TForm): Boolean of Object;

TFieldBase = class
private
  FEvent:TEventBeforeInsert;
....
function TFieldBase.EventBeforeInsert: TEventBeforeInsert;
begin
  Result:=FEvent;
end;

function TFieldBase.EventBeforeInsert(AEvent: TEventBeforeInsert): TFieldBase ;
begin
  FEvent:=AEvent;
  Result:=Self;
end;

....

表单调用

TFormBase.New
.addStringField
(
    TFieldBase.New
    .Enabled(True)
    .Description('User')
    .EventBeforeInsert(TEvents.New.EditFillUser), TTabsNames.Tab1
).Show();

表单类

TFormBase = class(TForm)
private
FDictionary: TDictionary<String, TEventBeforeInsert>;
...
function TFormBase.addStringField(AField: TFieldBase; ATab: TTabsNames): TFormBase;
var
  FLink: TLinkControlToField;
  FEdit: TEdit;
begin
  Result := Self;
  FEdit := TEdit.Create(Self);
  FEdit.Visible := True;
  FEdit.Parent := TPanel(PanelParent.FindComponent('PanelTab' + Ord(ATab).ToString));
  FEdit.Enabled:=AField.Enabled;

 
  if Assigned(AField.EventBeforeInsert) then
  begin
    FDictionary.Add(FEdit.Name,AField.EventBeforeInsert);
  end;
end;
...
procedure TFormBase.rectInsertClick(Sender: TObject);
var
    Item:String;
begin
  for Item in FDictionary.Keys do
  begin
    if Not FDictionary.Items[Item](Self.FindComponent(Item),Self) then
      Exit;
  end;
end;

我在这里遇到问题，调试时我看到文本属性已正确更改，但没有对显示的表单进行任何更改。

TEvents = class
...
function TEvents.EditFillUser(AComponent: TComponent;AForm: TForm): Boolean;
begin
  TEdit(AComponent).Text:=IntToStr(0);
  Result:=True;
end

我认为变量按值传递可能有问题......有人可以帮助我吗？

编辑1:我尝试过像这样声明的字典:

FDictionary: TDictionary<TComponent, TEventBeforeInsert>;
...
if Not FDictionary.Items[Item](Item,Self) then //call

我也尝试使用 TForm 引用，如下所示:

function TEvents.EditFillUser(AComponent: String;AForm: TForm): Boolean;
begin
  TEdit(AForm.FindComponent(AComponent)).Text:=IntToStr(0);
  Result:=True;
end

Answer 1

在 TFormBase.addStringField() ，您没有分配 Name对新创建的值(value)TEdit将对象插入 FDictionary. 之前。只有在设计时创建的组件才会自动生成Name s。在运行时创建的组件则不然。因此，您正在使用空白 Name 跟踪您的对象s。如果你想通过 Name 来追踪对象，您需要实际将自己的值分配给 FEdit.Name ，例如:

function TFormBase.addStringField(AField: TFieldBase; ATab: TTabsNames): TFormBase;
var
  ...
  FEdit: TEdit;
  FEvent: TEventBeforeInsert;
begin
  ...
  FEdit := TEdit.Create(Self);
  FEdit.Name := 'SomeUniqueNameHere'; // <-- for you to decide on...
  ...
 
  FEvent := AField.EventBeforeInsert;
  if Assigned(FEvent) then
    FDictionary.Add(FEdit.Name, FEvent);
end;

但是，在这种特殊情况下，我认为没有理由使用 TDictionary根本不。考虑使用TList相反，那么您不需要 Name根本没有。这也将提升 TFormBase.rectInsertClick() 中迭代的性能。因为它不必寻找每个 TComponent对象使用 FindComponent()不再:

TFormBase = class(TForm)
private
  type TEventBeforeInsertPair = TPair<TComponent, TEventBeforeInsert>;
  FBeforeInsertEvents: TList<TEventBeforeInsertPair>;
  ...
public
  constructor Create;
  destructor Destroy; override;
  ...
end;

...

constructor TFormBase.Create;
begin
  inherited;
  FBeforeInsertEvents := TList<TEventBeforeInsertPair>.Create;
end;

destructor TFormBase.Destroy;
begin
  FBeforeInsertEvents.Free;
  inherited;
end;

function TFormBase.addStringField(AField: TFieldBase; ATab: TTabsNames): TFormBase;
var
  ...
  FEdit: TEdit;
  FEvent: TEventBeforeInsert;
begin
  ...
  FEdit := TEdit.Create(Self);
  ...

  FEvent := AField.EventBeforeInsert;
  if Assigned(FEvent) then
    FBeforeInsertEvents.Add(TEventBeforeInsertPair.Create(FEdit, FEvent));
end;

procedure TFormBase.rectInsertClick(Sender: TObject);
var
  Item: TEventBeforeInsertPair;
begin
  for Item in FBeforeInsertEvents do
  begin
    if not Item.Value(Item.Key, Self) then
      Exit;
  end;
end;

...

还有，你的TEvents.EditFillUser()方法与 TEventBeforeInsert 的定义不匹配。第一个参数TEventBeforeInsert被宣布为通过 TComponent指针 var引用(为什么？)，但是EditFillUser()的第一个参数没有这样做。除非您希望事件处理程序更改 TComponent 的内容指针指向(这不会像您当前使用 TEventBeforeInsert 和 TDictionary 一样工作)，那么没有理由传递 TComponent var 的指针完全引用:

TEventBeforeInsert = function(AComponent: TComponent; AForm: TForm): Boolean of Object;

此外，您对 TEvents.New 的使用似乎是内存泄漏，因为没有人获得新创建的 TEvents 的所有权对象(除非它的构造函数将该对象添加到我们看不到的某个内部列表中)。与 TFieldBase.New 相同。甚至TFormBase.New (假设关闭表单时没有设置 OnClose 的 Action=caFree 事件)。在某些时候，您需要调用Free()任何class反对你Create() .