当前位置：首页技术文章正文

关于delphi：向事件运行时添加函数 | 珊瑚贝

01-05 技术文章 430

Add function to event runtime

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

procedure TFormOrderAdd.DBEdit1DblClick(Sender: TObject);
var
FormSelectEmp: TForm;
SelectEmpDBGrid: TDBGrid;

begin
FormSelectEmp := TForm.Create(Self);
SelectEmpDBGrid := TDBGrid.Create(Self);
SelectEmpDBGrid.Parent := FormSelectEmp;
SelectEmpDBGrid.Align := alClient;
SelectEmpDBGrid.DataSource := DMl.DataSourceViewEmpList;
FormSelectEmp.ShowModal;
SelectEmpDBGrid.OnDblClick := AddSelectedEmp;
FormSelectEmp.Close;
end;

procedure TFormOrderAdd.AddSelectedEmp;
begin
DBEdit1.Text := Dml.ADOQueryViewEmpList.FieldByName(‘ID’).Text;
end;

如何将我的程序添加到 OnDblClick 事件？
我尝试分配，但编译器说：[dcc32 Error] OrderAdd.pas(66): E2010 Incompatible types: ‘TNotifyEvent’ and ‘procedure, untyped pointer or untyped parameter’

与分配任何其他属性的方式相同，只需传递处理程序的名称。另外，不应该在 ShowModal 之前吗？你的程序是什么样的？你不能随便通过。
[dcc32 错误] OrderAdd.pas(66): E2010 不兼容的类型：\\’TNotifyEvent\\’ 和 \\’procedure, untyped pointer or untyped parameter\\’
SelectEmpDBGrid.OnDblClick := AddSelectedEmp(Self);

我的意思是，AddSelectedEmp 是什么样的？实际上，您似乎正在尝试 call 它而不是 assign 它。从中删除 (Self)。请使用这些完整的详细信息编辑您的问题。
[dcc32 错误] OrderAdd.pas(66): E2009 不兼容的类型：\\’参数列表不同\\’，需要相同数量的参数，如 “OnDblClick”
您似乎没有提供适当的事件处理程序。它必须有正确的签名。 AddSelectedEmp 上应该有 (Sender: TObject)。请在此处阅读：stackoverflow.com/a/42956399/988445
我正在编辑问题，我只需要将所选字段中的文本插入到 dbedit
@D′D?D?D°??D?DoD?D?D?D2：可能是这样，但是您仍然必须分配具有正确签名的程序。您的 TFormOrder.AddSelectedEmp 应该是 procedure TFormOrder.AddSelectedEmp(Sender: TObject);。
@Rudy，我不是刚刚试图在下面的答案中这么说吗？如果公式有问题，请告诉我或编辑答案(这就是我要说的)。

@Victoria：当然，但我只是用另一条评论回应了他的评论。您的示例很好，但我尝试使用他的代码(使用他的过程名称)而不是您的代码来拼写出来。我的印象是他不太明白这一点。

您必须在一个类中创建一个匹配的事件方法原型，然后将其分配给事件处理程序(对于 TDBGrid 控件的 OnDblClick 事件，它是 TNotifyEvent)，因此您可以编写例如：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

type
TForm1 = class(TForm)
DBEdit1: TDBEdit;
DBGrid1: TDBGrid;
private
procedure Form1Create(Sender: TObject);
procedure MyGridDblClick(Sender: TObject);
end;

implementation

procedure TForm1.Form1Create(Sender: TObject);
begin
{ it doesn’t matter if you create the component at runtime,
this is a common principle of assigning event methods at
runtime – they just have to match the method prototypes }
DBGrid1.OnDblClick := MyGridDblClick;
end;

procedure TForm1.MyGridDblClick(Sender: TObject);
begin
{ to access the grid instance in case more than one grid
uses this handler you can use TDBGrid(Sender) or safer
cast (Sender as TDBGrid) }
DBEdit1.Text := TDBGrid(Sender).DataSource.Dataset.FieldByName(‘ID’).Text;
end;

谢谢。现在我有新问题：如果我使用 ShowModal 而不是显示应用程序卡在 vcl 表单模块中：Application.HandleMessage;如果 Application.Terminated 然后 ModalResult := mrCancel else if ModalResult <> 0 then CloseModal;并且事件未触发
正如对您的问题的评论中提到的，您必须在调用 ShowModal 之前分配事件处理程序。并在此处阅读另一个答案以解决您遇到的另一个问题(它是正确的，但有点超出您所问的范围)。
AddSelectedEmp 执行后如何关闭表单？从 AddSelectedEmp 我无法访问表单。
这超出了这个问题的范围，但是，如果分配的方法是同一个表单类的一部分(如示例所示)，您可以在完成该事件中的工作后简单地使用 Close; 方法处理程序(或将 ModalResult 属性设置为您需要返回的任何模态结果)。如果您从另一个类分配处理程序方法，您通常可以使用它来到达放置网格的表单 (GetParentForm(TControl(Sener))).Close; 或在事件方法中完成工作后分别设置 ModalResult 。
不工作，但我发现 Screen.ActiveForm.Close;这行得通
@D′D?D?D°??D?DoD?D?D?D2：你的意思是你不能从你的处理程序访问表单？如果它是表单的方法，如 Victoria\\’s answer 所示，您应该可以访问它。所以你做了维多利亚写的，或者只是有点像它？
感谢您的答复。我使用了 Screen.ActiveForm.Close；我无法访问，因为”AddSelectedEmp”过程在主窗体上，但 handler 在 FormSelectEmp 上，它的窗体继承自 TForm (FormSelectEmp: TForm;)，但不是 MainForm，因为我不想要主窗体中的所有可见组件在新的运行时创建的表单上。 AddSelectedEmp 过程对新创建的表单一无所知。

过程 TFormOrderAdd.DBEditEmpDblClick(Sender: TObject); var FormSelectEmp: TForm; SelectEmpDBGrid：TDBGrid；开始 FormSelectEmp := TForm.Create(Self); SelectEmpDBGrid := TDBGrid.Create(Self); SelectEmpDBGrid.Parent := FormSelectEmp; SelectEmpDBGrid.Align := alClient; SelectEmpDBGrid.DataSource := DMl.DataSourceGetEmpList; SelectEmpDBGrid.OnDblClick := AddSelectedEmp; FormSelectEmp.ShowModal;

来源：https://www.codenong.com/44357513/

微信公众号

手机浏览(小程序)

0

分享到：