agenda delphi
Abram o delphi
Salvem seu trabalho, lembram como: File-> save All
Salvem a unit como Ulogin e o Projeto como Perguntas
Feito isso criem uma tela de usuário e senha lembram como?
Codifique os botoes com o seguinte código:
/Botão Logar-se procedure Tform1.Btlogarse Click(Sender: TObject); begin if (Edit1.text = 'aluno')and(Edit2.text = 'teste') then begin Form2.showmodal;
Form1.close;
end else ShowMessage('Usuário e/ou senha incorretas') end; /Botão Corrigir procedure Tform1.Btcorrigir Click(Sender: TObject); begin edit1.Clear; edit2.clear; edit1.SetFocus; end; /Botão Sair procedure Tform1.Btsair Click(Sender: TObject); begin if messagedlg('deseja realmente sair do programa?',mtconfirmation,
[mbyes,mbno,mbcancel],0)=mryes then begin close; end; end;
Crie um novo formulário file-> new-> form será neste segundo formulário que vocês irão começar seu programa:
Altere a propriedade Caption deste formulário para : Responda as Perguntas
Insira os seguintes componentes da paleta Standart
1 Label altere o Caption deste para: Qual é o Melhor Time do Brasil?
4 RadioButtons, no primeiro RadioButtom altere seu Caption para Grêmio e seu Name para Correta
Os outros 3 RadioButtons altere seus Captions com nomes de outros times quaisquers
2Buttons (Altere o Caption do Primeiro para Responder e o do segundo Para Sair sua tela deve ficar semelhante a esta:
Vamos a parte divertida da brincadeira: Hora do Código
Coloque o Codigo Implemetation dentro do botão Responder, ou seja, dê um duplo click no botão e cole o seguinte código nele
if Correta.Checked=True Then
Begin
ShowMessage('Você Tem muito Bom Gosto e Acertou!');
Form3.Show;
end else Begin
ShowMessage('você Errou :(');// Caso a Resposta for Incorreta irá aparecer essa Mensagem end; end; Crie um Novo Formulário Para A Segunda Pergunta lembram como?
File → new-> form salvem com o nome