По второму вопросу на вкладке win3.1 есть компонент TabbedNotebook:
TTabbedNotebook - набор страниц с закладками

Компонент TTabbedNotebook представляет собой объединение TTabSet и TNotebook в готовый многостраничный блокнот с заклад-ками. В отличие от TTabSet закладки в TabbedNotebook могут располагаться в несколько рядов.

Свойства ActivePage, Pagelndex И Pages компонента совпадают c одноименными свойствами компонента TNotebook. Свойство property TabsPerRow: Integer; определяет количество закладок в одном ряду.

С помощью метода function GetIndexForPage(const PageName: String): Integer; программа может получить индекс страницы по ее имени PageName.

или на вкладке win32 компонент TPageControl:
TPageControl - набор страниц с закладками

Компонент TPageControl в отличие от TTabControl может содержать несколько перекрывающих друг друга панелей класса ттаь-Sheet. Каждая панель выбирается связанной с ней закладкой и может содержать свой набор помещенных на нее компонентов.

Чтобы на этапе конструирования добавить новую панель или выбрать ранее вставленную, щелкните по компоненту правой кнопкой мыши и выберите New page (новая панель), Next page (следующая панель) или previous page (предыдущая панель). Смена панелей идет циклически, т. е. после показа последней показывается первая и наоборот.

Помимо свойств HotTrack, MultiLine, ScrollOpposite, TabHeight, TabPosition и TabWidth, которые аналогичны одноименным свойствам TTabcontrol, компонент имеет следующие специфичные свойства:

property ActivePage: TTab-Sheet;

Содержит ссылку на активную панель. Установка нового значения ActivePage размещает соответствующую панель поверх остальных. Для выбора новой панели следует использовать методы SelectNextPage и FindNextPage

property ActivePageIndex: Integer;

Содержит индекс активной панели

property PageCount: Integers;

Содержит количество панелей (только для чтения)

property Pages[Index: Integer] : TTabSheet;

Возвращает ссылку на панель по ее индексу (только для чтения)

Методы компонента:

function FindNextPage (CurPage: TTabSheet; GoFor-ward, CheckTabVisible: Boolean) : TTabSheet;

Ищет следующую панель: CurPage - текущая панель; GoForward - содержит True, если поиск идет от первой панели к последней; CheckTabVisible -содержит True, если из поиска исключаются панели с признаком Tabvisible=False. Возвращает ссылку на найденную панель. Если CurPage не принадлежит компоненту, возвращает ссылку на первую или последнюю панель в зависимости от параметра GoForward

procedure SelectNextPage (GoForward: Boolean);

Делает активной следующую панель. Если GoFor-ward=True, активизируется следующая панели, в противном случае - предыдущая

Dimon4ik:
По второму вопросу: попробуйте использовать TNotebook. У меня он на вкладке Win 3.1 (D2009)

Selax:
И что у Вас этот код работает?

Евгений/Genia007/:
А вы попробуйте!
Для Трех Image обработчик OnClick=ImageClick;

procedure TForm1.ImageClick(Sender: TObject);
begin
TImage(Sender).Height:= TImage(Sender).Height+50;
end;

Del:
Вы невнимательно прочитали мой пост, про TPageControl я уже писал.

Selax:
А я перед тем как написать так и попробовал, на delphi 7 не прокатывает.

Dimon4ik:
Можно добавить еще проверку, что кликнули именно на TImage (если этот обработчик будет на других компонентах):
if (Sender is TImage) then .....
Так же можно заменить: TImage(Sender).Height на (Sender as TImage).Height

Евгений/Genia007/:
Я пробовал на D2009 все сработало. Попробую вечером проверить на D7

Selax:
Кстати на turbo delphi тоже не работает. Думаю как это исправить.

Selax:
У меня это работает если stretch установлено в true, или картинка больше высоты image и не стоит proportional в true (но тогда изменение идёт только до размеров картинки).

Евгений/Genia007/:
Вы наверное путаете картинку в Image и сам компонент TImage? Размер компонента увеличивается. Проверил на д7. Попробуйте показать высоту компонента - она постоянно увеличивается. То что при этом не увеличивается картинка при stretch=false оно и понятно: картинку то никто не увеличивает. Если же нужно увеличивать именно картинку, то или stretch=true или брать картинку TImage(Sender).Picture.Bitmap, увеличивать и возвращать обратно.
P.S. Если у Image стоит AutoSize, то изменение высоты не будет происходить: оно постоянно будет возвращаться в исходное состояние

Selax:
Я вот чего не пойму, смысл увеличивать высоту компонента без перерисовки содержащийся картинки. Высота то увеличивается, а картинка нет в чём смысл?

Евгений/Genia007/:
Может у картинки stretch=true или еще что-то есть. Это вопрос к автору....

Сколько много информации! Спасибо вам. Сейчас буду читать и пробовать!

Евгений/Genia007/:
Наверное у нас версии Delphi не совпадают. У меня Delphi 7. Я не нашел в данной вкладке этого компонента. Посмотрите, как у меня:

Может я ошибаюсь...
Может такими достоинствами могут пользоваться только владельцы новых версий Delphi?
А в общем интересно. Так много компонентов, их совмещают, получается более продвинутые, которые потом снова с чем то совместят. Интересно есть будет ли предел?
Я имею ввиду, что будет ли такое, что компонент улучшали, улучшали и все, он останется в таком состоянии на долгие года... То есть лучшего не будет.
Хотя, мне кажется, тогда и работы не будет компаниям.

Selax:
Проверка работает отлично!

Dimon4ik:
Вы смотрите вкладку Win32, а надо смотреть вкладку Win 3.1

Selax:
Да уж, что-то со мною не то.
Спасибо, что предупредили.

Dimon4ik:
У меня тоже версия delphi 7, хотя есть и turbo delphi explorer (делаю проги на нём).
на вкладке win32 компонент TPageControl:

а на вкладке Win 3.1 компонент TabbedNotebook:

Евгений/Genia007/:

turbo delphi

(Что-то я от жизни отстал) А расскажите, пожалуйста, что это такое?

Сергей Бендер:
turbo delphi это решения для одного языка и одной платформы, предназначенные для разработчиков-любителей, независимых профессиональных разработчиков и профессионалов, работающих по совместительству. Новое семейство продуктов «Turbo Delphi», «Turbo Delphi .NET», «Turbo C++» и «Turbo C#», для каждого из этих продуктов предусмотрено два выпуска — Explorer Edition и Professional Edition., к примеру у меня стоит turbo delphi explorer с бесплатной лицензией вплоть до продажи программ написанных на нём. Только это уже устаревший продукт 2006 года. Вот здесь можно почитать по подробнее.