PageControl как получить индекс при переключении разными способами

Posted by Chas under Delphi

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

Аватар
Добавил обработку других возможностей перехода (если не упустил еще чего нибудь). В 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) 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тема на форуме

Похожие статьи

• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла
• Как узнать пользовательскую директорию
• Запустить выбранные адреса в checklistbox
• Управление отображением рабочего стола Windows на нескольких экранах
• Вставить TBitMap в RichEdit