VPF::Скрыть закладки в TabControl - Форум программистов

aktuba

Дата 12.1.2007, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Сабж... Как?

--------------------

Sunvas

Дата 12.1.2007, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

http://forum.vingrad.ru/topic-114913.html

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

VICTAR

Дата 12.1.2007, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

ИМХО просто удалить...

Код


TabControl1.Tabs.Delete(0);

Winprogrammer

Дата 14.1.2007, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет

А не проще использовать TPageControl? И проще и понятнее и гемороя меньше smile

--------------------

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

aktuba

Дата 14.1.2007, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

А не проще использовать TPageControl? И проще и понятнее и гемороя меньше

Нет, Winprogrammer, не проще... Слишком много дополнительно писать придется...

--------------------

CatATonik

Дата 15.1.2007, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8

Не очень понятно зачем это нужно в TTabControl, если TPageControl, то понятно, а TabControl без вкладок это просто панелька. Но если так нужно, то можно сделать так:

Код


  TabControl1.Tabs.Clear;

Если нужно можно предварительно куда-нибудь сохранить Tabs и TabIndex, потом восстановить.

aktuba

Дата 15.1.2007, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

CatATonik, мне нужно было сделать так, чтобы при наличии одной закладки, закладок видно не было, иначе видны...

--------------------

CatATonik

Дата 15.1.2007, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8

Интересно стало smile

В MSDN ненашел как скрывать, попробовал свой класс наваять, вот вставляешь перед объявлением формы:

Код


TTabControl = class(ComCtrls.TTabControl)
  private
    FSavedTabs: TStringList;
    FSavedTabIndex: Integer;
    FHideTabs: Boolean;
    FTabShowChanging: Boolean;
    function  GetTabIndex: Integer;
    function  GetTabs: TStrings;
    procedure SetHideTabs(const Value: Boolean);
    procedure SetTabs(const Value: TStrings);
    procedure SetIndex(Value: Integer);
  protected
    procedure Change; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property  HideTabs: Boolean read FHideTabs write SetHideTabs;
    property  TabIndex: Integer read GetTabIndex write SetIndex;
    property  Tabs: TStrings read GetTabs write SetTabs;
  end;

Ну а это потом:

Код


constructor TTabControl.Create(AOwner: TComponent);
begin
  FSavedTabs := TStringList.Create;
  inherited;
end;

destructor TTabControl.Destroy;
begin
  inherited;
  FSavedTabs.Free;
end;

function TTabControl.GetTabIndex: Integer;
begin
  if HideTabs then
    Result := FSavedTabIndex
  else
    Result := inherited TabIndex;
end;

function TTabControl.GetTabs: TStrings;
begin
  if HideTabs then
    Result := FSavedTabs
  else
    Result := inherited Tabs;
end;

procedure TTabControl.SetIndex(Value: Integer);
begin
  if FTabShowChanging then Exit;

  if HideTabs then
  begin
    if (FSavedTabIndex <> Value) and CanChange then
    begin
      FSavedTabIndex := Value;
      Change;
    end;
  end
  else
    inherited TabIndex := Value;
end;

procedure TTabControl.SetTabs(const Value: TStrings);
begin
  if FTabShowChanging then Exit;

  if HideTabs then
  begin
    FSavedTabs.Assign(Value);
    if FSavedTabIndex >= FSavedTabs.Count then
      TabIndex := -1;
  end
  else
    inherited Tabs := Value;
end;

procedure TTabControl.SetHideTabs(const Value: Boolean);
begin
  if FHideTabs <> Value then
  begin
    FHideTabs := Value;

    FTabShowChanging := True;
    try
      if Value then
      begin
        FSavedTabs.Assign(inherited Tabs);
        FSavedTabIndex := TabIndex;
        inherited Tabs.Clear;
      end
      else
      begin
        inherited Tabs.Assign(FSavedTabs);
        inherited TabIndex := FSavedTabIndex;
      end;
    finally
      FTabShowChanging := False;
    end;
  end;
end;

procedure TTabControl.Change;
begin
  if not FTabShowChanging then
  begin
    FSavedTabIndex := inherited TabIndex;

    inherited;
  end;
end;

Это сообщение отредактировал(а) CatATonik - 15.1.2007, 15:24

aktuba

Дата 15.1.2007, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Спасибо, вечером опробую...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »