Еще проблемка возникла
код выполняется после завершения передачи файла
Цитата:
if form4.Showing=true then
FileClient.Close;
|
Цитата:
procedure TFileClient.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if BtnTransfer.Enabled=false then
begin
CanClose := False;
form4.Show;
end
else
CanClose := True; ....переходит сразу сюда как и должно быть
end;
|
почему то не закрывается когда форма 4 открыта