TPageControl - > Tabs per Maus durchsrollen?

[Renate Schaaf]

Ich würde es etwas anders lösen (war zu faul meine Var-Namen zu ändern ):

Delphi-Quellcode:

procedure TPageControl.cmMouseWheel(var Message: TCMMouseWheel);
var
  Dir: Integer;
  P: TPoint;
begin
  P:=ScreenToClient(Message.Pos);
  if IndexOfTabAt(P.X, P.Y) < 0 then
    exit;
  if Message.WheelDelta < 0 then
    Dir := 1
  else
    Dir := -1;
  if (Dir = -1) and (ActivePageIndex = 0) then
    ActivePageIndex := PageCount - 1
  else
    ActivePageIndex := (ActivePageIndex + Dir) mod PageCount;
  Message.Result := 1;
end;

Gruß, und auch Dir schönes Wochenende

Renate