Discussion :

[patrice@]

Bonjour à tous,
Aujourd'hui j'essaye de capter le TabSheet qui est sous mon curseur de souris lors d'un MouseUp sur un PageControl pour l'activer
J'ai essayé ceci mais Index renvoie toujours -1 donc, la procédure ne fonctionne pas ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Var
procedure TProgramme.PageControl1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
    ScreenPoint: TPoint;
    Index: Integer;
begin
    GetCursorPos(ScreenPoint);
    Index := PageControl1.IndexOfTabAt(PageControl1.ScreenToClient(ScreenPoint).X, PageControl1.ScreenToClient(ScreenPoint).Y);
//ou
    Index := PageControl1.IndexOfTabAt(PageControl1.ActivePage.ScreenToClient(ScreenPoint).X, PageControl1.ActivePage.ScreenToClient(ScreenPoint).Y);

Qu'est ce que je n'ai pas bien fait/compris ?
En vous remerciant, encore une fois, pour l'aide éclairée ...

[Cirec]

Bonjour,

je crois que tu te compliques la vie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm3.PageControl1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  aIdx: Integer;
begin
  aIdx := PageControl1.IndexOfTabAt(X, Y);
  Caption := IntToStr(aIdx);
end;

tout simplement

Cordialement,

@+

[patrice@]

ah ben oui! oh punaise!
Merci Cirec!