약 6~70개의 체크 박스를 true, false를 해야 됩니다.
그래서.. 쓴게
For i := 6 to 9 do
if components[i] is TCheckBox then
TCheckBox(components[i]).Checked := True;
요거져..
근데, 문제는..
TCheckBox(components[i]).Checked := True;
이 부분에서.. Checked := True(False) 를 주면...
그 해당 체크박스의 OnClick Event가 실행 됩니다.(오늘 첨 알았네여..)
모.. 대충 변수 줘서.. 이벤트를 안실행 시키면 되겠지만..
몬가.. 있을듣~~한데.. 해서 질문해 봅니다..
제 질문이 이해가 잘 되시는지... ^^;;
답변 부탁드려여~~~~~~
그럼, 좋은 하루!!
From 류..
---------
procedure TForm1.Button1Click(Sender: TObject);
Var
NotifyEvent : TNotifyEvent;
begin
NotifyEvent:= CheckBox1.OnClick;
CheckBox1.OnClick:= Nil;
CheckBox1.Checked:= True;
CheckBox1.OnClick:= NotifyEvent;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ShowMessage('Hi');
end;
초보장 wrote:
> 약 6~70개의 체크 박스를 true, false를 해야 됩니다.
> 그래서.. 쓴게
>
> For i := 6 to 9 do
> if components[i] is TCheckBox then
> TCheckBox(components[i]).Checked := True;
>
> 요거져..
>
> 근데, 문제는..
> TCheckBox(components[i]).Checked := True;
> 이 부분에서.. Checked := True(False) 를 주면...
> 그 해당 체크박스의 OnClick Event가 실행 됩니다.(오늘 첨 알았네여..)
>
> 모.. 대충 변수 줘서.. 이벤트를 안실행 시키면 되겠지만..
> 몬가.. 있을듣~~한데.. 해서 질문해 봅니다..
>
> 제 질문이 이해가 잘 되시는지... ^^;;
>
> 답변 부탁드려여~~~~~~