닫기버튼(BitBtn4Click)을 눌렀을때 오류창이 나오면서 폼창이 닫혀지질 않습니다. 이걸 어떻해 해야 하나요?
<!--CodeS-->
procedure TfrmDnpReadCom.BitBtn4Click(Sender: TObject);
begin
Close;
end;
<!--CodeE-->
<!--CodeS-->
procedure TfrmDnpReadCom.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if IsFileInUse(gbRealComFileName) then
begin
gbRealComFileName := '';
CloseFile(RealComFile);
end;
m_ReceiveCntCom := 0;
if frmMain.ComPort1.Connected then <<<<< 이부분에서 위의 오류창이 뜨면서 걸림
frmMain.ComPort1.ClearBuffer(True,True);
if frmComTerminal <> nil then
begin
frmComTerminal.Close;
end;
frmDnpReadCom := nil;
Action := CaFree;
end;
<!--CodeE-->
Cport3.1을 사용하고 있습니다.
고수님들의 답변을 기다리겠습니다~~
if frmMain.ComPort1.Connected then <<<<< 이부분에서 위의 오류창이 뜨면서 걸림
frmMain.ComPort1.ClearBuffer(True,True);
excep
end;