Ajude-me com o componente PageControl
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
Curtidas 0
Respostas
Ricardo
07/06/2014
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;
GOSTEI 0
Tone Costa.
07/06/2014
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;
GOSTEI 0