VPF::Проблеммы с XPManifest - Форум программистов

Vendigo

Дата 26.9.2005, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 25.9.2005
Где: Челябинская обл. г. Миасс

Репутация: нет
Всего: нет

Программа работает нормально без XPManifest-а, как только кидаю его на форму.
Выдает ошибку "Cannot change Visible in OnShow or OnHide"

В тексте программы такие строки:

fmProb.Close; // закрываем окно
fmVir.bbStart.Click; // Запускаем Старт

На второй строке и возникает эта ошибка.
Если убрать манифест и XPMan из раздела Uses, все работает нормально!

Не подскажете в чем тут может быть дело?

Это сообщение отредактировал(а) Vendigo - 26.9.2005, 18:57

Alex

Дата 26.9.2005, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

покажи код процедуры "fmVir.bbStart.Click"

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Albinos_x

Дата 26.9.2005, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

код в студию...
и желательно по-подробнее...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Vendigo

Дата 29.9.2005, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Вот код процедуры в которой возникает ошибка с (ХР Манифестом):

Код

procedureTfmProb.FormPaint(Sender: TObject);    
var
  X,Y,N: Word;
begin
    if RandomStart = True then
      begin
        Randomize;
        for N := 1 to 70 do  //Создаем случайную колонию
          begin
          X := 240+Random(21);
          Y := 240+Random(21);
          Virus[X,Y] := 1;
          Cub;          //Рисуем ее
          Delay(10); //Задержка
          end;

        Delay(100);              //Задержка
        fmProb.Close;           // закрываем окно
        fmVir.bbStart.Click;   // Запускаем Старт [b]Здесь возникает ошибка[/b]
      end;

  Probirca;
end;

Вот код процедуры куда передается исполнение:

Код


procedure TfmVir.bbStartClick(Sender: TObject);
begin

  btGo.Enabled        := false;   // Убираем кронпку Go
  btNewShtamm.Enabled := false;   // кнопку Открыть
  btLoad.Enabled      := false;   // кнопку Загрузить
  btRandom.Enabled    := false;   // кнопку Случайно
  bbStart.Visible     := false;   // Убираем кнопку Старт
  btPoisk.Enabled     := false;   // Убираем кнопку Поиск
  btSave.Enabled      := false;   // Убираем кнопку Сохранить

  btPause.Enabled := true;  //Показываем Паузу
  btStop.Enabled := true;   //Показываем Стоп

  Age := 1;
  Save_shtamm;     // сохраняем штамм.
  EvolutionStop := false;
  Evolution(1000000);    // 10 000 генераций.
  Stat; //Выводим статистику
  fmVir.btStop.Click;
end;

Ошибка возникает даже если убрать строчку fmVir.bbStart.Click

Это сообщение отредактировал(а) Alex - 29.9.2005, 19:12

Alex

Дата 29.9.2005, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Показывай код процедуры "Probirca"

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Vendigo

Дата 29.9.2005, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Вот процедуры "Probirca" и "Cub"

Мне кажется, что дело вовсе не в них, вместо злополучной строки "fmVir.bbStart.Click;" можно поставить Exit и все равно произойдет ошибка.

Что означает "ProJect Virus.exe raised exception class EInvalidOperation with message 'Cannot change Visible in OnShow or OnHide'." ?

Код


procedure TfmProb.Cub;
var
    Xgr,Ygr: Word;
begin
  //Рисуем мозайку квадратиков
  for Ygr := 233 to 268 do
    for Xgr := 230 to 270 do
    begin
      if Virus[Xgr, Ygr] =1 Then
        begin //Рисуем квадратик
        PbProb.Canvas.Brush.Color := clInactiveCaption ;
        PbProb.Canvas.Pen.Color   := clGray;
        PbProb.Canvas.Rectangle((Xgr-230)*10,(Ygr-233)*10, (Xgr-230)*10+11, (Ygr-233)*10+11);
        end;
      if Virus[Xgr, Ygr] =0 Then
        begin //Скрываем квадратик
        PbProb.Canvas.Brush.Color := clBtnFace;
        PbProb.Canvas.Pen.Color   := clGray;
        PbProb.Canvas.Rectangle((Xgr-230)*10,(Ygr-233)*10, (Xgr-230)*10+11, (Ygr-233)*10+11);
        end;
    end;
end;


procedure TfmProb.Probirca;

  procedure Grid;
  var
    x,y,a: Word;
  begin

    //Заливаем все поле цветом кнопки
    PbProb.Canvas.Brush.Color := clBtnFace;
    PbProb.Canvas.Pen.Color := clBtnFace;
    PbProb.Canvas.Rectangle(0,0,400,350);

    PbProb.Canvas.Pen.Color := clGray;
    for a := 0 to 40 do //Вертикальные линии
      begin
      x := a*10;
      PbProb.Canvas.MoveTo(x,  0);
      PbProb.Canvas.LineTo(x,350);
      end;

    for a := 0 to 35 do //Горизонтальные линии
      begin
      y := (a*10);
      PbProb.Canvas.MoveTo(0,  y);
      PbProb.Canvas.LineTo(400,y);
      end;
  end;

begin
  Grid; //Рисуем пустую сетку
  Cub;  //Рисуем мозайку квадратиков
end;

Alex

Дата 29.9.2005, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Давай сделаем проще. Пришли мне свой проект на [email protected] и я посмотрю в чем дело

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Vendigo

Дата 29.9.2005, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Ну, если ты настолько серьезно настроен, что бы мне помочь...
Держи!

Vendigo

Дата 5.10.2005, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Спасибо Alex ты настоящий гуру!

Alex

Дата 5.10.2005, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

не за что

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »