Вопрос по PageControl

[Alexandr17-10]

Как в событие OnChanging можно получить индекс на странницу на которую хочешь переключиться.

[Аватар]

Какая необходимость его определять? С помощью TabVisible можено управлять доступностью вкладок. По другому куча вариантов - переход мышью, стрелками влево-вправо, по горячей клавише, мб еще, не помню. Мышинный переход просто отловить, например, так:

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
var xPos: TPoint;
begin
  xPos:=PageControl1.ScreenToClient(Mouse.CursorPos);
  ShowMessage(Format('Индекс перехода %d',[PageControl1.IndexOfTabAt(xPos.X,xPos.Y)]));
end;

Другие способы - наверно переопределять WndProc паджеконтрола и там заморачиваться

[Stilet]

Мышинный переход просто отловить

Это событие должно не только для мышки сработать.

[Аватар]

Оно и сработает, но индекс при переходе другими способами приведенный код не определит

[Аватар]

Добавил обработку других возможностей перехода (если не упустил еще чего нибудь). В OnChanging индекс страницы, на которую переход - в NewIndexTab

unit Unit1;

interface

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

type
  TPageControl = class(ComCtrls.TPageControl)
  private
    lNewIndexTab: Integer;
    procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR;
    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
    procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
    procedure WMMouseActivate(var Message: TWMMouseActivate); message WM_MOUSEACTIVATE;
  public
    property NewIndexTab: Integer read lNewIndexTab;
  end;
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Memo: TMemo;
    procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{TPageControl}

procedure TPageControl.CMDialogChar(var Message: TCMDialogChar);
{Переход по горячей клавише}
var i: Integer;
begin
  for i:=0 to PageCount-1 do
    if IsAccel(Message.CharCode,Tabs[i]) and CanShowTab(I) and CanFocus then begin
      lNewIndexTab:=i;
      Break;
    end;
  inherited;
end;

procedure TPageControl.CMDialogKey(var Message: TCMDialogKey);
{Переход по Ctrl-Tab}
var Page: TTabSheet;
begin
  if (Focused or Windows.IsChild(Handle,Windows.GetFocus)) and
     (Message.CharCode=VK_TAB) and
     (GetKeyState(VK_CONTROL)<0) then begin
    Page:=FindNextPage(ActivePage,GetKeyState(VK_SHIFT)>=0,True);
    if (Page<>nil) and (Page<>ActivePage) then lNewIndexTab:=Page.TabIndex;
  end;
  inherited;
end;

procedure TPageControl.CNKeyDown(var Message: TWMKeyDown);
{Переход клавишами Влево, Вправо}
var Page: TTabSheet;
begin
  if (Message.CharCode=VK_LEFT) or (Message.CharCode=VK_RIGHT) then begin
    Page:=FindNextPage(ActivePage,Message.CharCode=VK_RIGHT,True);
    if (Page<>nil) and (Page<>ActivePage) then lNewIndexTab:=Page.TabIndex;
  end;
  inherited;
end;

procedure TPageControl.WMMouseActivate(var Message: TWMMouseActivate);
{Переход мышью}
var xPos: TPoint;
begin
  inherited;
  xPos:=ScreenToClient(Mouse.CursorPos);
  lNewIndexTab:=IndexOfTabAt(xPos.X,xPos.Y)
end;

{TForm1}

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  if (PageControl1.NewIndexTab>=0) and
     (PageControl1.NewIndexTab<PageControl1.PageCount)
    then Memo.Lines.Add(Format('Переход на - %s [%d]',[PageControl1.Pages[PageControl1.NewIndexTab].Caption,PageControl1.NewIndexTab]))
    else Memo.Lines.Add('???');
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  Memo.Lines.Add(Format('Текущее состояние - %s [%d]',[PageControl1.ActivePage.Caption,PageControl1.ActivePage.TabIndex]));
  Memo.Lines.Add('');
end;

end.

[raxp]

...а просто сравнивать activepage c tabsheet не?

[Toxa]

а так не покатит?

procedure TForm3.PageControl1Change(Sender: TObject);
begin
  caption := inttostr(PageControl1.ActivePageIndex);
end;

[Аватар]

Так в том и проблема - в OnChanging известна текущая страница, она же с которой переход и не известна страница, на которую переход будет осуществляться. Хотя все это пустышка - TabVisible и без этого все решает. Тоха, речь не о OnChange, а о OnChanging. Разница очевидна

[Toxa]

Тоха, речь не о OnChange, а о OnChanging

извиняюсь, проглядел

а какова собственно задача, почему надо использовать именно это событие? может тут подскажут другое решение