请问:如何使用控制TPanel控件的WM_PAINT事件?

[bini]

BCB的新手,又暂时找不到书.来问高手同志们!

[fatwave]

写个消息机制将它给截下来！

[muta]

简略答一下你的问题 详细请翻阅BCB附带的Win32 SDK 有关Message的项目
Message处理是win32 Program的核心 我也无法一言以蔽之.下面是假设你的程式
开始于Form1
1)
代换BCB原定的Form1的讯息处理函式:
Form1->WindowProc = MyWndProc ;
2)
在MyWndProc中处理需要处理的讯息:
void __fastcall TForm1::MyWndProc(Messages::TMessage &Message)
{
switch(Message.Msg) {
case WM_PAINT:
: :
: : // 收到WM_PAINT讯息后的动作
: :
break ;
default :
WndProc(Message); // 不处理的讯息 由原定处理函式处理
break ;
}
}
3)
WM_PAINT 包含一个DC:
hdc = (HDC) wParam ;
可供你在画图时使用(PAINT事件大部分是要画图?)

[bini]

这是主窗体的,我只想控制其中的子窗体的消息呢?

[bini]

我想把OpenGL绘制到TPanel上.现在是有时能见,有时不能见.我想应该是TPanel本身的WM_PAINT有在动作.所以,我也不能在Application->OnIdle来重画.这可是占CPU 100%的.用Timer来间隔重画,也好象不太"正规"吧.占CPU也多.所以想控制其中TPanel的WM_PAINT.

[bini]

前来结贴.

[BoyMgl]

BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_PAINT, TMessage, WMPaintFun)
END_MESSAGE_MAP(TPanel)

[COKING]

TWndMethod oldproc;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1:: newproc(TMessage &msg)
{
if(msg.Msg==WM_PAINT)
{
//your code
}
else
oldproc(msg);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
oldproc= Panel1->WindowProc;
Panel1->WindowProc=newproc;
}
//---------------------------------------------------------------------------