NoteBook - почему использование не рекомендуют???

[Roof]

Вобщем стоит задача: пользователь вводит данные последовательно в несколько таблиц. Таблицы должны находится на разных страницах. Так вот, PageControl в данном случае не подходит, так как нужно чтобы не было корешков. Решил использовать NoteBook. Только вот мне не нравится надпись в справке 100 компонентов делфи - "Теперь коротко остановимся на компонентах TabSet, TabbedNoteBook и NoteBook. Эти компоненты применяются в Delphi 1 и не рекомендуются для применения в 32-разрядных приложениях"
Почему не рекомендуется?? И чем их использование может быть опасно?

[mihali4]

Поскольку они оставлены для совместимости "вниз", то их поддержка в дальнейшем не гарантирована. Вот и все.
(Не пойму, чем он (NoteBook) вам понравился?)

[Alter]

Сообщение от Roof

Вобщем стоит задача: пользователь вводит данные последовательно в несколько таблиц. Таблицы должны находится на разных страницах. Так вот, PageControl в данном случае не подходит, так как нужно чтобы не было корешков. Решил использовать NoteBook. Только вот мне не нравится надпись в справке 100 компонентов делфи - "Теперь коротко остановимся на компонентах TabSet, TabbedNoteBook и NoteBook. Эти компоненты применяются в Delphi 1 и не рекомендуются для применения в 32-разрядных приложениях"
Почему не рекомендуется?? И чем их использование может быть опасно?

В PageControl можно скрыть и показать нужную вкладку, это не сложно.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
  // всего три вкладки
procedure TForm1.FormCreate(Sender: TObject);
Var I,II :Byte;
begin
 // прячем все вкладки, ничего не будет видно
  II := PageControl1.PageCount;
 For I:=0 to II-1 Do
 PageControl1.Pages[I].TabVisible := False;
 // покажем первую складку
 PageControl1.ActivePageIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 // двигаться по вкладкам
 PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1;
end;

end.

[Roof]

2 mihali4 - разъяснение понял, спасибо Вам. Он мне не то чтобы понравился, просто мне необходимо в одной области видимиости делать перетсроения и чтобы не было никаких вкладок.

2 Alter - а Ваши ответы меня всегда поражают. Всегда - четко и именно то, что нужно. Огромное спасибо Вам.

[iliy]

2 Alter

у меня та же ситуация, как и описали Вы. Потребовалось изначально сделать невидимыми все вкладки кроме первой. Сделал аналогично вашему примеру. Не работает. Сделал точно так же как и Вы писали - тоже. В чем может быть проблема? Вкладки просто не хотят прятаться.