如何改变画刷？

[egg]

我在void __fastcall TMainForm::FormCreate(TObject *Sender)
{
this->Canvas->Brush->Assign(
(TBrush *)CreateSolidBrush(CreateSolidBrush(GetSysColor(COLOR_BTNFACE)));
}
编译可以通过，但运行时报告EAccessViolation错误。是何原因？

[halfdream]

adams是对的。

[adams]

CreateSolidBrush函数返回的是HBRUSH类型，即TBrush的Handle,
而你将它强制转换为(TBrush *)自然会出错。改成
this->Canvas->Brush->Handle = CreateSolidBrush(GetSysColor(COLOR_BTNFACE));
其实你只要改变Brush的属性就行了，如下
this->Canvas->Brush->Color = clBtnFace;