(Resolvido)Abrir Aba automaticamente ao passar o Mouse

[robinhocne]

Como faço para abrir uma determinada aba de um PageControl sem ter que clicar nele?

Já coloquei no evento OnMouseMove da aba TabSheet1.Show; e assim sucessivamente, mas não funcionou;

Editado Março 8, 2011 por robinhocne

[Jhonas]

use a propriedade de TabAtPos para determinar em cima de qual aba está andando o mouse

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var   tabindex: Integer;
begin
    tabindex := PageControl1.IndexOfTabAt( X, Y );
    if tabindex >= 0 then
       PageControl1.Pages[tabindex].show;
end;

abraço

[robinhocne]

Ok, deu certinho muito obrigado