Does this function "TCustomNotebook.TabIndexAtClientPos(ClientPos: TPoint)" works correctly?
Original Reporter info from Mantis: >8<
-
Reporter name: Bug Import
Original Reporter info from Mantis: >8<
- Reporter name: Bug Import
Description:
It always returns -1;
I click on TNotebook tab's headline and check on the event OnMouseDown:
procedure TForm1.Notebook1MouseDown(Sender: TOBject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
index : Integer;
begin
if Button = mbRight then begin
index := TNotebook(Sender).TabIndexAtClientPos(Point(X,Y));
Label1.Caption := IntToStr(index);
end;
end;
PP
Additional information:
Imported information
--------------------
Name: Pawel Piwowar
Mail: alfapawel (at) tlen.pl
Mantis conversion info:
- Mantis ID: 669