안녕하세요. 최용일입니다.

비교하실때 Checkbox1.Checked를 비교해보시면 되겠네요...

if (FlatEdit1.text='') and CheckBox1.Checked then
begin
    ....
end;

^^ 항상 즐코하세요...

CheckBox1MouseUp 즉, OnMouseUp Event에서 처리하는 것도
한 방법일 것 같습니다.

참고하시구여~

답변에 너무너무 감사 드립니다.
한가지 더 질문이 있어서 이렇게 질문을 합니다.

이럴 경우에는 어떻게 해야 합니까?
이것도 위에서 질문한것 처럼 내부로 들어가서 두번이 실행이 됩니다.
이것은 다른 문제 인지 알고 싶습니다.

procedure TFAccountcust.Button1Click(Sender: TObject);
begin
DateEdit1.Clear;//이부분에서 내부로 들어감
end;

procedure TFAccountcust.DateEdit1Change(Sender: TObject);
begin
with kg1 do
     begin
     SCells[0, Row]:=DateEdit1.Text;
     BIll_Seq:=BillSeq_Call('PAID',DateWrite(DateEdit1.text), 4);
     SCells[1, Row]:='PAID';
     SCells[5, Row]:='PAID';
     DateEdit1.Visible:=False;
     end;
end;


P.S
아무리 노력을 해도 되지 않아서 이런 문제가 발생하면
이렇게 사용하고 있습니다.
procedure TFAccountcust.Button1Click(Sender: TObject);
var
i1:integer;
begin
i1:=1;
DateEdit1.Clear;//이부분에서 내부로 들어감
i1:=0;
end;

procedure TFAccountcust.DateEdit1Change(Sender: TObject);
begin
if (i1 <> 1) then
with kg1 do
     begin
     SCells[0, Row]:=DateEdit1.Text;
     BIll_Seq:=BillSeq_Call('PAID',DateWrite(DateEdit1.text), 4);
     SCells[1, Row]:='PAID';
     SCells[5, Row]:='PAID';
     DateEdit1.Visible:=False;
     end;
end;

정답을 모르니 이렇게 사용했습니다.
이해 주세요

그럼 수고 하세요

안녕하세요. 최용일입니다.

아까와 같은 경우입니다.

DateEdit1.Clear; 를 하시면 DateEdit1가 변경이 되었기 때문에 OnChange이벤트를 호출하게 됩니다.

뭐 여러가지 방법이 있지만 아까와는 다른 방법을 알려드리죠...
DateEdit1.Clear;호출하시기 전에 이벤트링크를 제거해보세요. 물론 끝난뒤에는 원상복귀해주셔야겠죠...

procedure TFAccountcust.Button1Click(Sender: TObject);
begin
    DateEdit1.OnChange := nil;
    DateEdit1.Clear;
    DateEdit1.OnChange := DateEdit1Change;
end;

^^ 항상 즐코하세요...