VPF::Как можно сделать вкладку tabcontrol'a нективной?

AlexST

Дата 4.10.2006, 14:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Сабж.

Zero

Дата 4.10.2006, 20:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

В общем как вариант из кода он может редактироваться так:

Код


  tabcontrol1.Tabs.Text := 'вкладка1'+#13+'вкладка2';

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

AlexST

Дата 5.10.2006, 20:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Zero @ 4.10.2006, 20:17

)

В определённых случаях можно сделать чтобы были видны разные вкладки.

Не совсем понял. Можно поподробнее.

Цитата(Zero @ 4.10.2006, 20:17

)

В общем как вариант из кода он может редактироваться так:

Но тогда надо всё равно как-то скрывать 2 вкладку.

Это сообщение отредактировал(а) AlexST - 26.10.2006, 10:49

Elfebet

Дата 6.10.2006, 08:51 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

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

Код


TabSheet.Visible:=False;

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

Программист не должен всё знать... он должен знать где можно посмотреть

Yanis

Дата 6.10.2006, 09:20 (ссылка)

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

Загрузка ...

Эксперт

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

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

Решение от розыча smile

Код

unit GSPageControl;

interface

uses
  Windows, Messages, Types, SysUtils, Classes, Controls, ComCtrls, CommCtrl;

type
  TGSPageControl = class(TPageControl)
  private
    FNewPageIndex, FNotifyIndex: Integer;
  protected
    function GetTabFromCursor: Integer;
    function CanChange: Boolean; override;
    procedure WMKeyDown(var Message: TWMKey); message WM_KEYDOWN;
    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
  public
    property NewPageIndex: Integer read FNewPageIndex;
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TGSPageControl]);
end;

{ TGSPageControl }

function TGSPageControl.CanChange: Boolean;
begin
  FNewPageIndex := GetTabFromCursor;
  if FNewPageIndex = -1 then
    FNewPageIndex := FNotifyIndex;
  Result := inherited CanChange;
  FNewPageIndex := -1;
end;

procedure TGSPageControl.CMDialogKey(var Message: TCMDialogKey);
begin
  if (Focused or Windows.IsChild(Handle, Windows.GetFocus)) and
    (Message.CharCode = VK_TAB) and (GetKeyState(VK_CONTROL) < 0) then
    FNotifyIndex := FindNextPage(ActivePage, True, False).TabIndex;
  inherited;
end;

constructor TGSPageControl.Create(AOwner: TComponent);
begin
  inherited;
  FNotifyIndex := 0;
  FNewPageIndex := 0;
end;

function TGSPageControl.GetTabFromCursor: Integer;
var
  HitTestInfo: TTCHitTestInfo;
  P: TPoint;
begin
  GetCursorPos(P);
  HitTestInfo.pt := Self.ScreenToClient(P);
  HitTestInfo.flags := TCHT_ONITEM;
  Result := SendMessage(Self.Handle, TCM_HITTEST, 0, Integer(@HitTestInfo));
end;

procedure TGSPageControl.WMKeyDown(var Message: TWMKey);
begin
  with Message do
    case Message.CharCode of
      37: FNotifyIndex := FindNextPage(ActivePage, False, False).TabIndex;
      39: FNotifyIndex := FindNextPage(ActivePage, True, False).TabIndex;
    end;
  inherited;
end;

end.

Взял отсюда

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

*щёлк*

Zero

Дата 7.10.2006, 07:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата(AlexST @ 5.10.2006, 21:05

)

Не совсем понял. Можно поподробнее.

Смысл в том, чтоесли тебе нужно чтобы отображалась только первая вкладка, то надо написать так:

Код


tabcontrol1.Tabs.Text := 'вкладка1';

А если нужно только вторая, то вот так:

Код


tabcontrol1.Tabs.Text := 'вкладка2';

А если другая, то подругому, но принцип один и тотже.

AlexST

Дата 26.10.2006, 10:50 (ссылка)

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

Загрузка ...

Опытный

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

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

Zero, спасип. То что надо.

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