ccrun(老妖) Edit的WM_PAINT消息，画完后怎么 恢复原状态？

[kysoft]

ccrun(老妖)(www.ccrun.com) ( ) 信誉：157 Blog 2006-11-14 0:02:12

理论上来说，没有什么做不到的事情。
子类化TEdit，然后响应Edit的WM_PAINT消息，随便画哦。

单元文件.h中：
private:// User declarations
void __fastcall CrnEditNewProc(TMessage &Msg);

单元文件的.cpp中：
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Edit1->Enabled = false;
Edit1->WindowProc = CrnEditNewProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CrnEditNewProc(TMessage &Msg)
{
Edit1->Dispatch(&Msg);
if(Msg.Msg == WM_PAINT)
{
TControlCanvas *pCanvas = new TControlCanvas;
pCanvas->Control = Edit1;
TRect rct(0, 0, Edit1->BoundsRect.Width(), Edit1->BoundsRect.Height());
pCanvas->FillRect(rct);
pCanvas->Font->Color = clBlue;
pCanvas->TextRect(rct, 1, 1, Edit1->Text);
delete pCanvas;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text = "嘿嘿,测试";
}


当Edit1->Enabled=true; 时

怎样恢复，没有画前的状态呢？

[ccrun.com]

简单，只需在CrnEditNewProc过程中添加一个条件判断即可，如下：

void __fastcall TForm1::CrnEditNewProc(TMessage &Msg)
{
Edit1->Dispatch(&Msg);
if(Msg.Msg == WM_PAINT && Edit1->Enabled == false)
{
TControlCanvas *pCanvas = new TControlCanvas;
pCanvas->Control = Edit1;
TRect rct(0, 0, Edit1->BoundsRect.Width(), Edit1->BoundsRect.Height());
pCanvas->FillRect(rct);
pCanvas->Font->Color = clBlue;
pCanvas->TextRect(rct, 1, 1, Edit1->Text);
delete pCanvas;
}
}

[wood542344]

要懂得举一反三啊。。。。。

[玄之丞]

好像在研究语法高亮的说. mark.

[kysoft]

真的很感谢ccrun(老妖)的回复!!!