[T-dayne]

Здравствуйте. Написал код, который скачивает с сервера файл, проверяет этот файл и если условие верно, то показывает одно окно, если не верно, происходит выход из формы.
Это я образно описал, вот сам код, с комментариями:

PHP код:

procedure TForm9.FormShow(Sender: TObject);
var FileOnNet, LocalFileName: string;
ini: tinifile;
begin
   gif.Visible:=true;
   label1.Visible:=true;
   form9.Height:=80;
   memo1.Visible:=false;
   button1.Visible:=false;
   button2.Visible:=false; //возвращаем исходные данные окна

   FileOnNet:='http://127.0.0.1/mysite/finalv.ini';
   LocalFileName:='finalv.ini';
   label1.Caption:='Подключаемся...';
   if GetInetFile(FileOnNet,LocalFileName) then //Если файл скачан успешно 
    begin
    label1.Caption:='Проверка наличия версии...';
    ini:=tinifile.Create(extractfiledir(application.ExeName)+'\finalv.ini');
     if ini.ReadInteger('main', 'finalv', 1)>1331033 then //сравниваем версию на сайте и версию программы
      begin
      gif.Visible:=false; //если есть новая версия активируем текст и кнопки обновления
      label1.Visible:=false;
      form9.Height:=134;
      memo1.Visible:=true;
      button1.Visible:=true;
      button2.Visible:=true;
      end
     else
      begin //если при сравнении версии одинаковы то
       showmessage('У вас самая последняя версия'); 
       form9.Close;
      end;
    end
     else //если файл скачать не удалось то выводим:
      showmessage('Не удалось подключиться к серверу обновления!');

end; 


Так вот, все работает прекрасно, но если вдруг получается так, что версии одинаковы, и обновление не требуется, то на месте кода:

Код:

showmessage('У вас самая последняя версия'); 
       form9.Close;

Выползает ошибка

Cannot change visible in OnShow or OnHide

и окно не закрывается!
В чем может быть проблема?

[roamer]

Если (в данном случае) в переменной form9 хранится ссылка на объект класса TForm9, то корректность вызова метода Close внутри метода FormShow - сомнительна ...

[T-dayne]

Сообщение от roamer

Если (в данном случае) в переменной form9 хранится ссылка на объект класса TForm9, то корректность вызова метода Close внутри метода FormShow - сомнительна ...

А как возможно тогда реализовать закрытие формы сразу поле showmessage?

[roamer]

А нужно ли размещать всю логику в методе FormShow ?

Может быть лучше что-то вроде этого :

Код:

type
  TForm9 = class(TForm)
    ...
    ...            
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute(нужные параметры) : boolean;

  end;

var
  form9: TForm9;

function TForm9.Execute(нужные параметры) : boolean;
begin
  Result:=false;

  ...инициализация того, что надо
  
  if ShowModal = mrOk then begin
    Result:=true;
     ... Действия, если все OK
  end
  else begin
     ... иначе ...
  end;

end;

[T-dayne]

Сообщение от roamer

А нужно ли размещать всю логику в методе FormShow ?

Может быть лучше что-то вроде этого :

Код:

type
  TForm9 = class(TForm)
    ...
    ...            
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute(нужные параметры) : boolean;

  end;

var
  form9: TForm9;

function TForm9.Execute(нужные параметры) : boolean;
begin
  Result:=false;

  ...инициализация того, что надо
  
  if ShowModal = mrOk then begin
    Result:=true;
     ... Действия, если все OK
  end
  else begin
     ... иначе ...
  end;

end;

совсем ничего не понятно...

Код:

if ShowModal = mrOk

это вообще не имеет место быть в моем коде вроде... там нет кнопок "ок" "нет", нужно просто закрыть форму после выполения showmessage() остальное работает нормально

[roamer]

Сообщение от T-dayne

совсем ничего не понятно...

Код:

if ShowModal = mrOk

это вообще не имеет место быть в моем коде вроде... там нет кнопок "ок" "нет", нужно просто закрыть форму после выполения showmessage() остальное работает нормально

Да, но именно это Вам система и разрешает ...