草庐IT

关于delphi：向事件运行时添加函数

codeneng 2023-03-28 原文

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;

delphi关于spanclassbr

有关关于delphi：向事件运行时添加函数的更多相关文章

  1. ruby - 如何从 ruby​​ 中的字符串运行任意对象方法？ - 2

    总的来说，我对ruby​​还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用

  2. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  3. ruby - 我需要将 Bundler 本身添加到 Gemfile 中吗？ - 2

    当我使用Bundler时，是否需要在我的Gemfile中将其列为依赖项？毕竟，我的代码中有些地方需要它。例如，当我进行Bundler设置时:require"bundler/setup" 最佳答案 没有。您可以尝试，但首先您必须用鞋带将自己抬离地面。 关于ruby-我需要将Bundler本身添加到Gemfile中吗？，我们在StackOverflow上找到一个类似的问题： https://stackoverflow.com/questions/4758609/

  4. ruby - 如何每月在 Heroku 运行一次 Scheduler 插件？ - 2

    在选择我想要运行操作的频率时，唯一的选项是“每天”、“每小时”和“每10分钟”。谢谢!我想为我的Rails3.1应用程序运行调度程序。 最佳答案 这不是一个优雅的解决方案，但您可以安排它每天运行，并在实际开始工作之前检查日期是否为当月的第一天。 关于ruby-如何每月在Heroku运行一次Scheduler插件？，我们在StackOverflow上找到一个类似的问题： https://stackoverflow.com/questions/8692687/

  5. ruby - 将 Bootstrap Less 添加到 Sinatra - 2

    我有一个ModularSinatra应用程序，我正在尝试将Bootstrap添加到应用程序中。get'/bootstrap/application.css'doless:"bootstrap/bootstrap"end我在views/bootstrap中有所有less文件，包括bootstrap.less。我收到这个错误:Less::ParseErrorat/bootstrap/application.css'reset.less'wasn'tfound.Bootstrap.less的第一行是://CSSReset@import"reset.less";我尝试了所有不同的路径格式，但它

  6. ruby-on-rails - 如何在 ruby​​ 中使用两个参数异步运行 exe？ - 2

    exe应该在我打开页面时运行。异步进程需要运行。有什么方法可以在ruby​​中使用两个参数异步运行exe吗？我已经尝试过ruby​​命令-system()、exec()但它正在等待过程完成。我需要用参数启动exe，无需等待进程完成是否有任何ruby​​gems会支持我的问题？ 最佳答案 您可以使用Process.spawn和Process.wait2:pid=Process.spawn'your.exe','--option'#Later...pid,status=Process.wait2pid您的程序将作为解释器的子进程执行。除

  7. ruby - 无法运行 Rails 2.x 应用程序 - 2

    我尝试运行2.x应用程序。我使用rvm并为此应用程序设置其他版本的ruby​​:$rvmuseree-1.8.7-head我尝试运行服务器，然后出现很多错误:$script/serverNOTE:Gem.source_indexisdeprecated,useSpecification.Itwillberemovedonorafter2011-11-01.Gem.source_indexcalledfrom/Users/serg/rails_projects_terminal/work_proj/spohelp/config/../vendor/rails/railties/lib/r

  8. ruby - 续集在添加关联时访问many_to_many连接表 - 2

    我正在使用Sequel构建一个愿望list系统。我有一个wishlists和itemstable和一个items_wishlists连接表(该名称是续集选择的名称)。items_wishlists表还有一个用于facebookid的额外列(因此我可以存储opengraph操作)，这是一个NOTNULL列。我还有Wishlist和Item具有续集many_to_many关联的模型已建立。Wishlist类也有:selectmany_to_many关联的选项设置为select:[:items.*,:items_wishlists__facebook_action_id].有没有一种方法可以

  9. ruby - 在没有 sass 引擎的情况下使用 sass 颜色函数 - 2

    我想在一个没有Sass引擎的类中使用Sass颜色函数。我已经在项目中使用了sassgem，所以我认为搭载会像以下一样简单:classRectangleincludeSass::Script::FunctionsdefcolorSass::Script::Color.new([0x82,0x39,0x06])enddefrender#hamlengineexecutedwithcontextofself#sothatwithintemlateicouldcall#%stop{offset:'0%',stop:{color:lighten(color)}}endend更新:参见上面的#re

  10. ruby - Sinatra:运行 rspec 测试时记录噪音 - 2

    Sinatra新手；我正在运行一些rspec测试，但在日志中收到了一堆不需要的噪音。如何消除日志中过多的噪音？我仔细检查了环境是否设置为:test，这意味着记录器级别应设置为WARN而不是DEBUG。spec_helper:require"./app"require"sinatra"require"rspec"require"rack/test"require"database_cleaner"require"factory_girl"set:environment,:testFactoryGirl.definition_file_paths=%w{./factories./test/

随机推荐