폼 위에 Edit 하나...그리고 버튼을 두개 올려 놓았습니다.
하나는 확인..다른 하나는 닫기
확인 버튼의 ModalResult를 mrOk로,
닫기 버튼은 mrCancel로 했습니다.
그런데...확인 버튼 클릭시 다음과 같이 했습니다.
procedure TForm1.btnOkClick(Sender: TObject);
begin
if Length(Trim(Edit.Text)) < 5 then
begin
InformBox('값을 확인하시길 바랍니다.');
Edit.SetFocus;
Exit;
end;
end;
이렇게 했는데...그냥 폼이 닫혀 버리더라구요...?
어찌 해결해야 하는지요?
여러 방법을 했는데...잘 안되네요...
아래와 같이요. 일단 버튼 클릭을 하고 Exit를 하여도 ModalResult에 값을 반환 하므로 폼은 닫히게 되겠죠 ^^;
ModalResult := mrOK;
if Length(Trim(Edit.Text)) < 5 then
begin
InformBox('값을 확인하시길 바랍니다.');
Edit.SetFocus;
ModalResult := mrNone;
end