TabSheet unter der Maus

[Gentleman]

ach so meist du das.

hm...da fällt mir spontan nur ein, dass man da vielleicht ein so etwas wie ein Raster verwenden kann, das ist nicht gerade die besste Lösung, aber na ja.
das würde ich dann in etwa so machen:

Delphi-Quellcode:

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
  if X> 70 then
    begin
      PageControl1.TabIndex:= 1;
    end
  else
    begin
      PageControl1.TabIndex:= 0;
    end;

das musst du dann für deine zwecke umschreiben. ich hab jetzt angenommen, dass das TabSheet (wo man drauf klickt) 70 breit ist und der PageControl zwei sheets Sheets hat.