>>273
WndProcをオーバーライドするだけだよ。メッセージマップマクロでもいいけど。

void __fastcall TFrame1::WndProc(TMessage& m)
{
　　TFrame::WndProc(m);

　　if (m.Msg == WM_PAINT) {
　　　　// 処理
　　}
}