604
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DWORD dwStyle1 =::GetWindowLong(CheckBox1->Handle,GWL_STYLE);
::SetWindowLong(CheckBox1->Handle,GWL_STYLE,dwStyle1|=BS_PUSHLIKE);
CheckBox1->Refresh();
DWORD dwStyle2 =::GetWindowLong(CheckBox2->Handle,GWL_STYLE);
::SetWindowLong(CheckBox2->Handle,GWL_STYLE,dwStyle2|=BS_PUSHLIKE);
CheckBox2->Refresh();
DWORD dwStyle3 =::GetWindowLong(CheckBox3->Handle,GWL_STYLE);
::SetWindowLong(CheckBox3->Handle,GWL_STYLE,dwStyle3|=BS_PUSHLIKE);
CheckBox2->Refresh();
}