Delphi IDE中是否存在“不兼容的参数列表”消息的解决方法？

发布时间：2020-12-15 09:20:20 所属栏目：大数据来源：网络整理

导读：请考虑这个简化的例子： type TForm43 = class(TForm) drwgrd1: TDrawGrid; procedure drwgrd1DrawCell(Sender: TObject; ACol,ARow: Integer; Rect: Windows.TRect; State: TGridDrawState); private { Private declarations } public { Public declaration

请考虑这个简化的例子：

type
  TForm43 = class(TForm)
    drwgrd1: TDrawGrid;
    procedure drwgrd1DrawCell(Sender: TObject; ACol,ARow: Integer; 
      Rect: Windows.TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm43.drwgrd1DrawCell(Sender: TObject; ACol,ARow: Integer;
  Rect: Windows.TRect; State: TGridDrawState);
begin
  Rect.Left := 5;
end;

在方法drwgrd1DrawCell中,我明确地使用了Windows.TRect来解决在两个不同单元中定义的TRect之间的歧义.一切正常,代码正在编译.
但每次当我保存上述单位我收到来自德尔福IDE这问了一个问题：“通过drwgrd1.OnDrawCell引用的drwgrd1DrawCell方法有一个不兼容的参数列表中删除引用.？”

这非常烦人.有没有办法关闭此消息对话框或以不会显示的方式编写我的代码？不幸的是我不能改变TRect2的TRect或类似的东西.

解决方法

保存表单时出现错误的原因是因为Delphi比较了所有事件处理程序的声明,以确保它们的声明与它们的继承实现完全相同.添加Windows.声明使比较失败.

您可以删除Windows.如果您在声明TRect的uses子句中的另一个单元之后移动Windows单元,则从drwgd1DrawCell()开始.这是因为Delphi从最后一个到第一个处理uses子句中的单元.它将使用它发现的第一个实例的TRect …

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!