DLL窗体停靠后，窗体中的listview ,Memo 提示"no parent"错误的解决办法

修改" C:\Program Files\Borland\CBuilder6\Source\vcl "目录下 forms.pas文件；

定位到GetParentForm函数位置。将函数内容修改为

function GetParentForm(Control: TControl): TCustomForm;begin  while Control.Parent <> nil do Control := Control.Parent;  //if Control is TCustomForm then  // Result := TCustomForm(Control) else  //  Result := nil;  if Control is TCustomForm  then    Result := TCustomForm(Control)  else  begin  if upperCase(Control.ClassName) =upperCase(Control.ClassName)  then     Result := TForm(Control)    else      Result := nil;  end;end;

完成后将forms.pas加入本工程，然后重新完全编译才可以。

就可以，原因应该是由于继承的TCustomForm  找不到，具体太详细原因，暂时理解不了。先贴出代码方便以后使用。