[Resolvido] Criar Botão

[Lívio Bruno 0]

Bem amigos... tenho o seguinte código:

 

//Cria um botão no form1

procedure TForm1.Button1Click(Sender: TObject);

var

 

Botao: TButton;

 

begin

 

Botao := TButton.Create(form1);

with botao do

begin

Visible := true;

Top := 105;

Left := 10;

Width := 105;

Caption := 'Servidor';

Name := 'botaoserver';

Parent := form1;

end;

 

end;

 

Agora eu gostaria que a cada click desse botão, fosse criado um novo abaixo dele e parasse no vigésimo botão.

 

Desde já agradeço a ajuda.

[Raficcha 1]

Faça assim, mas será necessário alterar um pouco a sua rotina na hora de informar a posiçãod os botões

 

Botao.onClick = Button1Click;

Se não funcionar poste ai (este código muda um pouco em alugumas versões do Delphi e no Lazarus)

[Lívio Bruno 0]

Faça assim, mas será necessário alterar um pouco a sua rotina na hora de informar a posiçãod os botões

 

Botao.onClick = Button1Click;

Se não funcionar poste ai (este código muda um pouco em alugumas versões do Delphi e no Lazarus)

 

Não funcionou não... aqui eu uso o delphi7. ah... vou aproveitar e lhe perguntar outra coisa. Como eu faço para minimizar um form filho(form2) dentro do form pai(form1) ou dentro de um panel por exemplo?

 

Agradeço a ajuda.

[Raficcha 1]

Estranaho, no Delphi 7 isso tem que funcionar, que erro que da?

 

 

sobre como minizar um form dentro outro

 

o primeiro passo é coloar o seu form dentro do outro:

 

Windows.SetParent(Form2.Handle, Form1.Handle);

o segundo passo é enviar o comando para minimzar o form filho:

 

ShowWindow(Form2.Handle, SW_SHOWMINIMIZED);

[Lívio Bruno 0]

Estranaho, no Delphi 7 isso tem que funcionar, que erro que da?

 

 

sobre como minizar um form dentro outro

 

o primeiro passo é coloar o seu form dentro do outro:

 

Windows.SetParent(Form2.Handle, Form1.Handle);

o segundo passo é enviar o comando para minimzar o form filho:

 

ShowWindow(Form2.Handle, SW_SHOWMINIMIZED);

 

Obrigado amigão resolveu o problema.