[TUTORIAL - Delphi] Chamar segundo form e enviar dados entre eles

[LSecrets 2]

Pessoal, aqui vamos aprender a fazer um Button chamar outro Form. Isso é muito importante na programação em geral e por isso é muito interessante saber. Tem alguns tutoriais aqui na WC mas alguns são muito confusos e não tem imagens. Espero que o tópico possa ser útil a vocês programadores :)

 

1º Crie um novo programa: File – New – VCL Forms Application.

 

2º Adicione no Form um Button (Localizado na Tool Palette, na aba Standart)

 

3º Seu form deverá estar assim:

 

4º Agora vamos criar o Form2 (Que chamaremos assim que clicarmos no Button)

- Clique em File – New – Form Delphi

 

5º Com o novo Form criado, você pode colocar nele o que quiser, no meu caso colocarei uma mensagem (label) dizendo que o form foi criado corretamente (escrito no caption do label):

 

6º OK! Tudo pronto para a programação. Volte ao Form1 (Unit1) e dê um duplo clique em cima do Button1

- Escreva dentro da procedure assim:

 

Form2.ShowModal //Form2 é o nome do seu form, se o alterar, mude-o aqui na programação também. ShowModal é o comando que o trás a tela.

 

7º Pressione F9 ou aperte a seta verde para compilar. Deverá aparecer uma mensagem assim:

Ps.: Esse print é a mensagem que aparece na segunda parte do projeto. Meu print não saiu nessa hora, mas não faz diferença, pois a mensagem é similar e é só fazer o que é dito abaixo:

- Basta clicar em Yes, apertar em OK (pois deu o erro na primeira compilação), e agora compile novamente.

 

8º - O sublinhado em baixo da programação sumiu, isso demonstra que está tudo ok com o código.

Ao compilar aparecerá seu programa assim:

.

Pronto, você aprendeu a chamar um form com um clique no Button. Agora você pode também enviar uma informação do form2 para aparecer no form1.

 

1º No Form2 adicione um TEdit e um outro Button. Remova o Text da propiedade do TEdit (Propierties, Text, apague o que estava escrito)

 

2º Vá ao primeiro form e adicione somente um TEdit.

 

3º Volte ao Form2, dê um duplo clique no Button e programe o seguinte na Procedure:

 

Form1.Edit1.text:=Form2.Edit1.Text; //Nesse comando, dizemos para que a propiedade Text, do Edit1, que se encontra no Form1 receba o Texto digitado no Edit1 do Form2

Form2.Close; //nessa linha, só mandamos o form2 se fechar após termos clicado no Button.

 

4º Compile e novamente dará o erro.

Clique em Yes e compile novamente.

 

5º Seu programa está completo! Tudo o que for digitado no Edit do segundo form, vai para o Edit do Form principal. :)

Clique no Button, esse form irá se fechar e no Form1 aparecerá:

 

Espero que o tutorial tenha ajudado.

:)

[FioDuMaLL 23]

Cara Muito Bom o Tuto

Bem Explicado com Fotos

Irá Ajudar Muitos que Estão Iniciando ^^

[LSecrets 2]

Valew FioDuMaLL, é sempre bom ler respostas, incentiva a gente a querer ajudar sempre.

 

Pessoal, se as imagens não aparecerem, clica no iconezinho de imagem corrompida com o botão direito, clica em copiar URL da imagem... e abre o link dela, por algum motivo estranho as vezes (aqui em casa, pelo menos) as imagens não aparecem.