Fórum Ajude-me com o componente PageControl #481781
07/06/2014
0
Olá, bom, no meu formulário coloquei o componente PageControl, com 2 abas(inicio,fim) respectivamente.
Gostaria que, quando fosse para aba inicio, o formulário fica-se com as dimensões: height:=200, e quando fosse para a aba fim, o height muda-se para 400.
Outra coisa, se possível, indicar um tutorial, ou lugar para ler mais sobre este componente, como por exemplo onde eu posso descobrir mais sobre as propriedades deste componente.
Gostaria que, quando fosse para aba inicio, o formulário fica-se com as dimensões: height:=200, e quando fosse para a aba fim, o height muda-se para 400.
Outra coisa, se possível, indicar um tutorial, ou lugar para ler mais sobre este componente, como por exemplo onde eu posso descobrir mais sobre as propriedades deste componente.
Alexandre
Curtir tópico
+ 0
Responder
Posts
08/06/2014
Ricardo
If PageControl.ActivePage = TabSheetInicio then
formulario.height := 200;
If PageControl.ActivePage = TabSheetFim then
formulario.height := 400;
formulario.height := 200;
If PageControl.ActivePage = TabSheetFim then
formulario.height := 400;
Responder
Gostei + 0
10/06/2014
Tone Costa.
Use o codigo abaixo
procedure TForm1.PageControl1Change(Sender: TObject);
begin
If PageControl1.ActivePageIndex = 0 then
self.Width := 400
else If PageControl1.ActivePageIndex = 1 then
self.Width := 600;
end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
If PageControl1.ActivePageIndex = 0 then
self.Width := 400
else If PageControl1.ActivePageIndex = 1 then
self.Width := 600;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)