넘 간단한데요...
procedure TForm1.Button1Click(Sender: TObject);
var
ChkBoxOnClick: TNotifyEvent;
begin
ChkBoxOnClick := CheckBox1.OnClick;
CheckBox1.OnClick := nil;
CheckBox1.Checked := not CheckBox1.Checked;
CheckBox1.OnClick := ChkBoxOnClick;
end;
우담화 님이 쓰신 글 :
: C++ Builder 팁란에 장성호님께서 올린
: [VCL] 코딩으로 Control 상태변경시 이벤트 핸들러가 호출되는 경우 소스를
:
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
: TNotifyEvent ChkBoxOnClick=CheckBox1->OnClick;
: CheckBox1->OnClick=NULL;
: CheckBox1->Checked=! CheckBox1->Checked;
: CheckBox1->OnClick=ChkBoxOnClick;
: }
:
: 델파이로 바꾸고 싶은데 어떻게 바꿔야 할까요 ?
|