как реальзовать меню такое же как и в qip и не только.

[KWNlnc]

скиньте исходник. плиззз!

[bitSoft]

TPageControl, & TListView,

[Баламут]

Pagecontrol? Можно, конечно, но гемморно, на мой непрофессиональный взгляд. В данном случае лучше, как мне кажется, так:

procedure TForm1.ListView1Click(Sender: TObject);
var
  FormClass: TFormClass;
  Form: TForm;
begin
  case  ListView1.ItemIndex of
    0: FormClass := TForm2;
    1: ShowMessage('2');
  end;

 Form := FormClass.Create(Self);
 Form.BorderStyle := bsNone;
 Form.Parent := Panel1;
 Form.Show;
end;

Можно и через фреймы, конечно. Но мне, по ряду причин, они не нравятся.

[KWNlnc]

Баламут, не катит. не мог бы ты скинуть исходник. плиззз

[raxp]

точно такая-же темка

[KWNlnc]

raxp, там совсем не то! ... но похоже!
в qip(e) более професиональнее!

[Пепел Феникса]

в qip(e) более професиональнее!

я бы не назвал более проффесиональным.

так как у меня нет инфиума, поэтому как точно в нем сказать не могу.
в QIP 2005 там TListBox слева. а справа TPageControlEx.
вкладки все созданы с самого начала.
сомневаюсь что в инфиуме что то сильно другое. скорее всего теже вкладки просто убраны закладки вверху. только слева и остались.

[Kotofff]

в qip(e) более професиональнее!

а это как по-твоему ?
чем не нравиться пример raxp ?

ADD
Берешь PageControl и в режиме проектирования делаешь сколько угодно закладок и с ними тоже ...
А потом вот таким примерно кодом визуально их (закладки) убираешь из виду :

  for i:=1 to PageControl.PageCount do PageControl.Pages[i-1].TabVisible := false;
  PageControl.ActivePageIndex := 0; // включили первую

[raxp]

в qip(e) более професиональнее!

добавьте стилей и будет тоже самое

[KWNlnc]

вот как сделать чтобы так же было? красиво?!