在Delphi中有哪些情况会导致OnPaint事件的发生呢?

[jackeyqiu]

在Delphi中有哪些情况会导致OnPaint事件的发生呢?

[cnzzlp]

resize,窗体部分被遮住又重新显示，从不可见到可见．．．
楼下补充．．．

[cnzzlp]

可以在onPaint事件写个

OutputDebugString(Pchar('Paint'));

可以在EventLog窗口看出输出信息

[何鲁青]

show
refresh
updata
unactive
active
and ...

[SQLDebug_Fan]

Windows产生WM_PAIN消息会重画，你用Invalidate也会导致重画

[www_OK2002_com]

~~~我也正在找呢...

[byteh]

几乎可以这么说，只要你的界面处于可视状态就会触发！

[InceptKnowledge]

最直接的，就是最大化，最小化，

[火龙岛主]

例如：TForm；
Paint事件触发；
procedure TCustomForm.Paint;
begin
if Assigned(FOnPaint) then FOnPaint(Self);
end;

Paint由PaintWindow事件触发
procedure TCustomForm.PaintWindow(DC: HDC);
begin
FCanvas.Lock;
try
FCanvas.Handle := DC;
try
if FDesigner <> nil then FDesigner.PaintGrid else Paint;
finally
FCanvas.Handle := 0;
end;
finally
FCanvas.Unlock;
end;
end;

PaintWindow由PaintHandler触发
最终由
procedure WMPaint(var Message: TWMPaint); message WM_PAINT; 消息触发；
也就是说只要放生了WM_PAIN消息并且OnPaint也赋值了，那么就会触发OnPaint；