Ativar a TabSheet que est� abaixo do mouse.

Question

Ae galera, tem como eu ativar a tabsheet que est� abaixo do cursor do mouse?
Tipo, tenho uma PageControl com 3 p�ginas e quando eu passo o mouse (onMouseMove), quero que
a TabSheet que est� abaixo do mouse seja selecionada.

valeu

Andreyrf · Answer

ActivePageControl.ItemIndex := 1;...

Adriano Santos · Answer

Voc� leu a pergunta Andrey??? ou leu e n�o entendeu???...

Marcelo Saviski · Answer

Bom, se voc� usar o evento on MouseMove do TabSsheet n�o funciona n�?
ent�o experimente usar o evento on Mousemove do PageControl

e fa�a algo tipo:

if Y >30 then Exit;
if X <50 then Ativa Tab1;
if (X > 50) and (X < 100) then ativa Tab2;

[b:f32c764d4b][color=red:f32c764d4b]Aten��o[/color:f32c764d4b][/b:f32c764d4b], usei esses valores apenas como exemplo:
Aqui : [color=green:f32c764d4b]if Y >30 then Exit;[/color:f32c764d4b] altere o 30 para a altura das Abas
aqui [color=green:f32c764d4b]if X <N then Ativa Tab1;[/color:f32c764d4b] Mude o N para a largura das abas,
testo se a posi��o do mouse � menor que N, ent�o ela esta sobre a aba do Tab1, sen�o, testo se � maior que N e menor que N2, ent�o esta sobre o tab2, e assim vai...

Adriano Santos · Answer

� o onMouseMove da PageControl mesmo que estou usando. Value vou testar....

Vmotta · Answer

Pessoal, acabei de testar e deu certo, � o seguinte:

Altere a propriedade TabWidth do componente PageControl1 para 80 ou qualquer outro valor.

Agora insira o seguinte c�digo no evento OnMouseMove do componente PageControl1:

var
  ind : integer;
begin
  // troque o valor 80 pelo valor inserido na propriedade TabWidth
  ind := X div 80;
  PageControl1.TabIndex := ind;
end;

s� isso ... espero ter ajudado
T+
Vitor <vmotta@eep.br>

Adriano Santos · Answer

valeu mano....

F�rum Ativar a TabSheet que est� abaixo do mouse. #172991