Question

在尝试运行/编译/构建Proiject时出现此错误

       Incompatible Types : “TBitmap” and “TObject”

光标指向Bitmap := FSectionList.BackgroundBitmap

请帮助我搞清楚。像交通拥挤的救护车一样来到这里

以下是代码的一部分： -

procedure ThtmlViewer.DoBackground1(ACanvas: TCanvas; ATop, AWidth, AHeight, FullHeight: integer);
var
  ARect: TRect;
  Bitmap, Mask: TBitmap;
  PRec: PtPositionRec;
  BW, BH, X, Y, X2, Y2, IW, IH, XOff, YOff: integer;
  Fixed: boolean;

begin
ARect := Rect(0, 0, AWidth, AHeight);
Bitmap := FSectionList.BackgroundBitmap;    
if FSectionList.ShowImages and Assigned(Bitmap) then
  begin
  Mask := FSectionList.BackgroundMask;
  BW := Bitmap.Width;
  BH := Bitmap.Height;
  PRec := FSectionList.BackgroundPRec;
  Fixed := PRec[1].Fixed;
  if Fixed then
    begin  {fixed background}
    XOff := 0;
    YOff := 0;
    IW := AWidth;
    IH := AHeight;
    end
  else
    begin   {scrolling background}
    XOff := 0;
    YOff := ATop;
    IW := AWidth;
    IH := FullHeight;
    end;
  CalcBckgrndLoctionAndTilng(PRec, ARect, XOff, YOff, IW, IH, BW, BH, X, Y, X2, Y2);

  DrwBckgrnd(ACanvas, ARect, X, Y, X2, Y2, Bitmap, Mask, BW, BH, PaintPanel.Color);
  end
else
  begin  {no background image, show color only}
  DrwBckgrnd(ACanvas, ARect, 0,0,0,0, Nil, Nil, 0, 0, PaintPanel.Color);
  end;
end;

谢谢和问候输精管

Answer 1

我只是在猜测，但是从错误消息和FSectionList的名称来看，它是某种List，它包含通用的TObject实例，而BackgroundBitmap就是其中之一。

您需要将其强制转换为TBitmap：

Bitmap := FSectionList.BackgroundBitmap as TBitMap;

Answer 2

看起来在Windows.pas中定义的TBitmap和Graphics.pas中定义的TBitmap类之间存在一些混淆。它似乎认为您正在尝试将Graphics.TBitmap分配给Windows.TBitmap。

您可以通过将Bitmap的声明更改为Windows.TBitmap或Graphics.TBitmap来解决此问题。您没有在FSectionList中包含任何信息，但导致问题的原因可能是行


var
  Bitmap, Mask: TBitmap;

将其更改为以下之一：


  Bitmap, Mask: Graphics.TBitmap;

or

  Bitmap, Mask: Windows: TBitmap;

我无法告诉你使用哪个，因为我不知道FSectionList在那里拿着什么;添加其中一个然后尝试编译应该为您决定。我怀疑你需要Windows，基于错误信息。

Delphi 4错误： - 不兼容的类型：“TBitmap”和“TObject”

2 个答案: