*Paint
procedure Paint(PaintDC : HDC; var PaintInfo: TPaintStruct); virtual;
{PaintInfo.fErase = 0 indicates background has not been redrawn.
 PaintInfo.rcPaint defines the rectangle requiring redrawing.
}
begin
end;
*DefWndProc
procedure DefWndProc(var Msg : TMessage); virtual;
begin
@XX2.DefWndProc(Msg);
end;
*DefChildProc
procedure DefChildProc(var Msg : TMessage); virtual;
begin
@XX2.DefChildProc(Msg);
end;
*CanClose
function CanClose : boolean; virtual;
begin
CanClose := @XX2.CanClose;
end;