MDI Form에서 ShowModal과 같은 일을 하는 방법을 찾습니다..
procedure TfmMRPPlan.SpeedButton3Click(Sender: TObject);
begin
try
fmMakeDate := TfmMakeDate.Create(Self);
if tblM10d01mRelday.Value <> '' then SetDateC(tblM10d01mRelDay.Value);
if fmMakeDate.ShowModal = mrYes then
tblM10d01mRelDay.Value := FormatDateTime('YYYYMMDD', fmMakeDate.MakeDate);
finally
fmMakeDate.Free;
end;
end;
위의 소스가 MDI에서는 EInvalidOperation with Message 'Cannot make visible window Modal'
이라는 에러가 뜨고 화면이 잠깐 깜박인후 아무일도 없었던 것 처럼됩니다..
혹시 다른 방법이 있으면 알려주십시오..
그럼...
|