Delphi XE3 입니다.
procedure TTr110F.cxButton2Click(Sender: TObject);
begin
if FmRuning = nil then
FmRuning := TFmRuning.Create(Application);
FmRuning.Show;
ShowMessage('보이나요'); //==오케이
FmRuning.Close;
ShowMessage(' JOB No 년,월을 기록 해 주세요'); //==보이지 않음
end;
일반 폼에서 프로그래스바용 등으로 사용하는 FmRuning 폼입니다,
저 폼을 닫으면서 Showmessage보여 주고자 하는데
메세지 보여주지 못하네요..
왜 그럴까요?
|