delphi - 为什么在我使用 Canvas 时重写的 Paint 过程会一次又一次地调用自己？

Question

当我从这个类开发自己的组件时遇到了这个问题:TImage我使用了这段代码:

procedure Paint;override;
begin
inherited
canvas.TextOut(5,5,'Hi')
end;

提前致谢

Answer 1

因为 TImage 是 TGraphicControl 的后代，并且 Paint 过程在内部处理WMPaint (windows WM_PAINT) 消息。因此，当您在 TImage Canvas 上绘制(内部绘制过程)时，窗口会发送 WM_PAINT 消息并再次调用 Paint。

编辑:一种方法是...

procedure TMyImage.Paint;
const
  Text = 'Hi';
begin
  inherited;
  Windows.ExtTextOut(Canvas.Handle, 5, 5, 0, nil, PChar(Text), Length(Text), nil);
end;

因为 Windows.ExtTextOut 是 API 调用，不会像...一样发送 WM_PAINT 消息

canvas.TextOut(5,5,'Hi') 

...内部调用 FreeImage 程序。