>>333

uses
Commctrl;

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);

function GetVK(VK:Integer):Boolean;
begin
result := (GetAsyncKeyState(VK) and $8000) <> 0;
end;

var
PT:TPoint;
HI:TC_HITTESTINFO;
ret:integer;
begin
if GetVK(VK_HOME) then
Label1.Caption := 'On Tab of '+IntToStr(0)
else if GetVK(VK_END) then
Label1.Caption := 'On Tab of '+IntToStr(PageControl1.PageCount-1)
else if GetVK(VK_RIGHT) then
Label1.Caption := 'On Tab of '+IntToStr(PageControl1.ActivePageIndex+1)
else if GetVK(VK_LEFT) then
Label1.Caption := 'On Tab of '+IntToStr(PageControl1.ActivePageIndex-1)
else begin
GetCursorPos(PT);
PT := PageControl1.ScreenToClient(PT);
HI.pt := PT;
ret := TabCtrl_HitTest(PageControl1.Handle,@HI);
if (HI.flags and TCHT_ONITEM) <> 0 then
Label1.Caption := 'On Tab of '+IntToStr(ret);
end;
end;