小弟初学Delphi, 得到一个项目源码。在Delphi2007下编译报错（E2009 Incompatible types: 'Parameter lists differ'; E2010 Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'HRESULT'）。用了EmbeddedWB控件。求赐教!!!
报错代码：
wb := TEmbeddedWB.Create(Self);
TOleControl(wb).Parent := Self;
wb.Align := alClient;
wb.DropHandlingType := ddtCustom;
wb.OnGetDropTarget := WBGetDropTarget;（这行报错E2009）
wb.RegisterAsBrowser := True;
wb.RegisterAsDropTarget := False;
wb.OnDragEnter := WBDragEnter;（这行报错E2010）
wb.OnDragLeave := WBDragLeave;（这行报错E2010）
wb.OnDragOver2 := WBDragOver2;（这行报错E2010）
wb.OnDropEvent := WBDropEvent;（这行报错E2010）
.....
procedure THtmlChatEdit.WBGetDropTarget(const pDropTarget: IDropTarget;
var DropTarget: IDropTarget);
begin
FMSDropTarget := pDropTarget;
end;
...
function THtmlChatEdit.WBDragEnter(const dataObj: IDataObject;
grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HRESULT;
begin
Result := S_OK;
if FMSDropTarget <> nil then
Result := FMSDropTarget.DragEnter(dataObj, grfKeyState, pt, dwEffect);
end;
function THtmlChatEdit.WBDragLeave: HRESULT;
begin
Result := S_OK;
if FMSDropTarget <> nil then
Result := FMSDropTarget.DragLeave();
end;
function THtmlChatEdit.WBDragOver2(grfKeyState: Integer; pt: TPoint;
var dwEffect: Integer): HRESULT;
begin
Result := S_OK;
if FMSDropTarget <> nil then
Result := FMSDropTarget.DragOver(grfKeyState, pt, dwEffect);
end;

首先要明确你安装的控件版本是否与该项目所使用的控件版本一致。

感谢2楼的回复，的确是版本不对。已经解决了