У меня проблемы с отображением всплывающих подсказок для конкретной вкладки при наведении на ее имя.
Программа типа браузера с закладками.
Для отображения подсказок использовал такое:
1. Код предложенный ama kid:
| Код |
procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
i:integer;
CurPage:integer;
pt:TPoint;
begin
// Проверяем, что у всех табов выставлен ShowHint=true и Hint'ы - присвоены...
CurPage:=-1;
for i:=0 to PageControl1.PageCount-1 do
if PtInRect(PageControl1.TabRect(i),Point(X,Y)) then
begin
CurPage := i;
break;
end;
PageControl1.Hint:=PageControl1.Pages[CurPage].Hint;
pt:=PageControl1.ClientToScreen(Point(X,Y));
Application.ActivateHint(pt);
end;
|
2. Нашел в интернете:
| Код |
procedure TForm.PageControlMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
tabindex: Integer;
begin
tabindex := PageControl.IndexOfTabAt( X, Y );
if tabindex >= 0 then
PageControl.Hint:=PageControl.Pages[tabindex].hint;
end;
|
В первом случае при переходе с вкладки на вкладку затирается область EmbeddedWB1 и не отображается текст подсказки, а область под нее выделяется. Отображается только тогда, когда мышка находиться ниже закладки.
Во втором случае - подсказка не отображается при прямом переходе с tabsheet на tabsheet. |
)