(Resolvido) Duvida Com Componente Updown

[tux_boy]

No meu fomulario tenho um page control, e em cada uma das "abas" estou montando um cadastro diferente. O problema é que a quantidade de informações é grande e queria usar esse componente para que o ususario pudesse rolar essa barra, para eu poder organizar melhor o cadastro. porém quando altero a propriedade associate e coloco o tab sheet, ou qualquer outro componente que esteja no formulario, ele fica em branco.

alguém poderia me dizer o porque? Estou utilizando errado o componente?

Muito obrigado!

[Micheus]

Sabe que nunca havia notado isto.

As vezes que o inclui nos projetos, sempre utilizei o evento OnClick verificando a propriedade Position.

[tux_boy]

Micheus, desculpe a folga, mais seria possivel você colocar um exemplo de como faz isso?

Muito obrigado!

[Micheus]

Micheus, desculpe a folga, mais seria possivel você colocar um exemplo de como faz isso?

não vai ficar acostumado. :P

no evento OnCreate ou OnShow do form:

UpDown1.Min := 0; // você limita ao mínimo valor para ActivePageIndex

UpDown1.Max := PageControl1.PageCount -1; // você limita ao máximo valor para ActivePageIndex

UpDown1.Position := PageControl1.ActivePageIndex; // inicializa o UpDown

no evento OnClick do dito cujo:

1ªalternativa)

PageControl1.ActivePageIndex := UpDown1.Position; // aqui você faz com que a página seja trocada

// caso você tenha algum procedimento no evento OnChange do seu PageControl, adicione,

// a linha abaixo, porque mudar de página via as propriedades ActivePageIndex e ActivePage

// não gera os eventos OnChange e OnChanging

PageControl1Change(PageControl1);

2ª alternativa)

if PageControl1.ActivePageIndex > UpDown1.Position then // se você clicou para diminuir

PageControl1.SelectNextPage(False)

else if PageControl1.ActivePageIndex < UpDown1.Position then // se você clicou para aumentar

PageControl1.SelectNextPage(True)

// Caso ambos sejam iguais, significa que você já está em um dos extremos, então não fazemos nada

// Esta abordagem, se não me engano, gera os eventos OnChange e OnChanging

A idéia é mais ou menos esta. Confira se funciona.

[tux_boy]

Muito obrigado micheus!

Resolveu o meu problema sim, vlw