frmAlarm := TfrmAlarm.Create(Self);
frmAlarm.ShowModal;
위처럼 폼을 생성하고 반복하여 해당폼의 내용을 보여주려고 합니다.
frmAlarm 이 생성되어있는지 확인해서
if (frmAlarm이 생성된경우 ) then
frmAlarm.showModal
if (frmalarm이 생성안된경우) then
begin
frmAlarm := TfrmAlarm.Create(Self);
frmAlarm.ShowModal;
end;
이런식으로 하려고 하거든요 고수님들 부탁드립니다.
뭐 여러가지 방법이 있습니다만... frmAlarm변수가 nil인가를 체크하시는게 쉬울듯하네요...
if Assigned(frmAlarm) then
frmAlarm.ShowModal;
위 코드의 에러를 방지하기 위해서 frmAlarm폼의 OnDestroy 이벤트에서 frmAlarm변수에 nil을 할당하시면 됩니다.
procedure TfrmAlarm.FormDestroy(Sender: TObject);
begin
frmAlarm := nil;
end;