Создать интерфейс приложению

[NIKOLAYY2]

За пример взял вот эту основу что на картинке.
Кинул компонент TreeView прижал его вправо.
Положил PageControl растянул на всю область.
Панель положил снизу и прижал туда же.
Но дело и не в этом. Как убрать видимость вкладок в PageControl и как обратится от строки TreeView до нужной вкладки PageControl-а?

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

[NetSpace]

у почти любого визуального компонента есть свойство Width, Height, Left и Top. вот с ними и можно поиграться.

[min@y™]

constructor TMainForm.Create(AOwner: TComponent);
var
  Index: Integer;
begin
  inherited;

  // Устанавливаем для всех страниц PageControl
  // свойство TabVisible := False, чтобы не было видно вкладок.
  for Index:= 0 to PageControl.PageCount - 1 do
    PageControl.Pages[Index].TabVisible:= False;

  // Устанавливаем активной 1-ю страницу
  PageControl.ActivePageIndex:= 0;
end;

[phomm]

как обратится от строки TreeView до нужной вкладки PageControl-а?

При создании нодов тривью использовать методы добавления узлов с объектом и в качестве объекта класть TObject(TabIndex), на событии смены нода - ActivePageIndex := Integer(tv1.Selected.Data);

[min@y™]

как обратится от строки TreeView до нужной вкладки PageControl-а?

для такого случая, было дело, я создавал потомков TTabSheet и TTreeNode, в которых делал свойства для создания взаимных перекрёстных ссылок нужного типа. Очень удобно!

[NIKOLAYY2]

Что-то я не совсем как бы понял, мне вобше по простенькому нужно, вот я написал код на кнопку и его уже (для примера что на картинке) открыть первую вкладку хватает:

PageControl1.ActivePage := TabSheet1;

Теперь я кликаю по срокам TreeView, как мне открывать соответствующую вкладку вот в моем примере что на картинке?

[min@y™]

у TTreeNode есть свойство Data. при старте запиши в него указатель на соотв. страницу pagecontrol. Это если по-простому (связь в одну сторону).

[NIKOLAYY2]

min@y™ А у вас кода нету так сделать?

[min@y™]

А у вас кода нету так сделать?

по-простому – нет, а писать тебе пример лениво.
есть код, про который я написал в посту #5, но он – часть большого рабочего проекта, поэтому ты просто не осилишь, там очень много лишнего, не имеющего отношения к сабжу.

[NIKOLAYY2]

А что бы его и не написать...
Нашел вот он пример простой связи:

PageControl1.TabIndex:=TreeView1.Selected.Index;