Есть несколько рабочих форм, хочется перенести во вкладки, но не мешать код

Подскажите единственно верный путь )))

Есть приложение с несколькими рабочими формами, т.е. формами в которых пользователь проводит много рабочего времени. Приходится делать из модальными, чтобы они не прятались. Соответственно приложение быстро не свернуть и к другим функциям не попасть, пока не закроешь эту форму.

Хотелось бы перевести формы во вкладки (+ сейчас это модно, даже Win планирует переход на вкладки), но при этом не хочется мешать код. Как лучше реализовать? Фреймы и только они? Если они, то можно где-нибудь глянуть примеры и есть ли личный опыт такого использования фреймов?

antox,
Я в одном небольшом проекте использовал TCardPanel. Но код-то в одном модуле для всех TCard.

antox

Подскажите единственно верный путь ))) Есть приложение с несколькими рабочими формами, т.е. формами в которых пользователь проводит много рабочего времени. Приходится делать из модальными, чтобы они не прятались. Соответственно приложение быстро не свернуть и к другим функциям не попасть, пока не закроешь эту форму. Хотелось бы перевести формы во вкладки (+ сейчас это модно, даже Win планирует переход на вкладки), но при этом не хочется мешать код. Как лучше реализовать? Фреймы и только они? Если они, то можно где-нибудь глянуть примеры и есть ли личный опыт такого использования фреймов?

Можно фреймы, можно формы.
Я делаю с формами. TPageControl + динамическое создание формы.

Form.Parent := TabSheet

Что-то не получается:

Пробовал с автосозданием формы

  if Assigned(form3) then form3.Parent := ts1;

Пробовал сам создавать:

  var   f3: TForm3;
...
  f3:=TForm3.Create(self);
  if Assigned(f3) then f3.Parent := ts1;
  ts1.Repaint;

Не появляется содержимое формы на вкладке :(

antox,

f3.Show / f3.Visible := True;

Ghost Writer
antox, f3.Show / f3.Visible := True;

Лето, мозг начал плавиться ))) Спасибо, забыл

DimaBr,

Шикарное демо, спасибо ))