Ошибка в коде (BorderStyle)

[Airou]

EStringListError Index out of Bounds (0) Ошибка вылетает на 4 строчке когда я пытаюсь изменить BorderStyle ... подскажите плз в чем проблема.

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=1;
  Form3.BorderStyle:=bsSizeable;
end;

procedure TForm3.TabSheet1Show(Sender: TObject);
begin
  Form3.BorderStyle:=bsSingle;
  Form3.Height:=485;
  Form3.Width:=735;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
 If PageControl1.ActivePageIndex<>0 then PageControl1.ActivePageIndex:=0;
end;

[mutabor]

Ошибка эта к BorderStyle отношения не имеет. Это выход за пределы массива. По ходу ошибка здесь:
PageControl1.ActivePageIndex:=1;
Похоже что нет такого индекса.

[Airou]

Именно без этой строчки все работает... сам не понимаю что к чему.
Страницы всего две...

[SERG1980]

На четвёртую строку кода вряд ли стоит грешить проверил у себя работает.

[Airou]

Да блин ... заметил что проблема возникает вообще из-за попытки изменить BorderStyle ... что может блокировать такое действие?

Убрал 4ую и 9ую строчку - все прекрасно работает ... но мне нужно чтобы форма с открытой TabSheet1 не растягивалась.

[Stilet]

Form3.BorderStyle:=bsSingle;

Убери это, все равно потом выполняется Form3.BorderStyle:=bsSizeable;

Вообще малопонятный код, задачу обьясни, полюбому есть другие способы это сделать.

[Airou]

Есть форма Form3 на ней PageControl с 2мя страницами. При переходе с главной формы на Form3, активной становиться 1ая страница с bsSingle(тобишь чтобы не растягивалась.) и присваиваються форме нужные размеры. При нажатии на кнопку BitBtn2 активируеться 2ая страница c bsSizeble и размеры ее можно менять как пожелаете (там например WebBrouser стоит). Но если вы захотите вернуться на 1ую страницу она должна быть в первоначальном состоянии(7-12 сточка кода).

Да и еще как сделать чтобы при закрытии формы3 с активной второй страницей заново открывалась форма3. Пытался сделать через глобальную булевую переменную, которую делал True если в событии onClose формы3 - ActivePageIndex=1, и через Form1.Activate проверять эту переменну и соответсвенно с этим открывать форму3.

EInvalidOperation Cannot change Visible in OnShow OnHide operation

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If PageControl1.ActivePageIndex=1 then OpenForm3:=True;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
If OpenForm3 then Form3.Show;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
OpenForm3:=False;
If PageControl1.ActivePageIndex<>0 then PageControl1.ActivePageIndex:=0;
end;

[mutabor]

Первая ошибка, чтобы ты не говорил, к стилю окна не имеет абсолютно никакого отношения
EStringListError Index out of Bounds (0)
Это обращение к несуществующему элементу, а ты уже сам смотри какие у тебя там массивы есть. Строка должна подсветиться где ошибку вызывает.
Ты их хоть создал эти страницы?

Дальше:
EInvalidOperation Cannot change Visible in OnShow OnHide operation
Невозможно менять свойство Visible в OnShow OnHide обработчиках

[Airou]

Не обращаюсь я ко всему существующему ... хз в чем проблема. Короче я тупо создал еще одну форму и туда поместил то что надо... вот и все.

По проблеме пробуйте создать форму на ней PageControl с 2мя страницами и на каждой поставьте кнопку перехода на другую страницу.
Потом используйте следующий код. Как результат ошибка.

procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
end;

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
Form1.BorderStyle:=bsSingle;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
Form1.BorderStyle:=bsSizeable;
end;

[Stilet]

А все потому что если пойти в генофонт то можно увидеть что
Form1.BorderStyle:=bsSizeable; влечет за собой RecreateWnd;
т.е. опять происходит событие отображения всего что на форме включая и TabSheet, а в нем опять эта команда.
Зацикливание до Stack Overflow доходит. Понимаеш? Этакий абсурдик получается.
НЕ стоит так делать.