我在运行时将组件添加到表单中，还添加了事件，这些事件会更改字典中这些组件的属性以供以后调用。
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;
我在这里遇到问题，在调试时我看到正确更改了text属性，但是对显示的表单没有任何更改。
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
在中TFormBase.addStringField()，您没有在将Name值创建到新创建的TEdit对象之前将其分配到中FDictionary.。只有在设计时创建的组件才会自动生成Name。在运行时创建的组件不会。因此，您正在使用blank跟踪对象Name。如果要通过跟踪对象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;
但是，在这种情况下，我完全没有理由使用a TDictionary。考虑使用aTList代替，那么您根本不需要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()。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句