보여줄 폼을 동적으로 생성시켜는 편이 좋겠습니다.
폼을 생성하기 전에 자료가 등록되어 있는지 검사를 해 보고 만들어 주는 겁니다.
그런 방법들 중 하나로 class 프로시져를 사용해 보세요.
폼의 클래스이 public에
class procedure Execute;
를 추가하고
class procedure TForm2.Execute; // TForm2
var
TmpForm : TForm2;
begin
if Not (조건 검사) then Exit; // 조건을 만족하지 않으면 나간다.
TmpForm := TForm2.Create(Application);
TmpForm.ShowModal;
TmpForm.Free;
end;
의 형태로 사용하시면 됩니다.
다른 폼에서 사용하실 대는
TForm2.Execute;
라고 하면 됩니다.
물론 프로젝트 옵션의 자동폼 생성에서 제외 시켜 두세요.
온라인 상이라 틀린 부분이 있을 지도 모르겠네요.
유수~
|