TabIndexAtClientPos always returns -1

[AlvaroPB]

Hi,

I click on TPageControl tab's headline and check on the event OnMouseDown:

Code: [Select]

procedure TForm1.PageControl1MouseDown(Sender: TOBject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  index : Integer;
begin
  if Button = mbRight then begin
    index := PageControl1.TabIndexAtClientPos(Point(X,Y));
    //with ScreenToClient don't work too
    //index := PageControl1.TabIndexAtClientPos(PageControl1.ScreenToClient(Point(X, Y)));
    Label1.Caption := IntToStr(index);
  end;
end;


[Vincent Snijders]

On what operating system with what widget set did you test it?

[AlvaroPB]

I tested on Windows XP and Vista.

The X coordinate is correct, but the Y is a negative number.
Changing the Y's value to a constant value, like 5, the code below return the correct index:

index := PageControl1.TabIndexAtClientPos(Point(X,5));

Sorry for my poor english.

[Vincent Snijders]

Please, create a bug report with an example program.

[AlvaroPB]

OK. I'll do it.