- Remix.BanMembro Raro
- Idade : 30
Posts : 477
Créditos : 0
Respeito : 16
Habboz !
[TUT] Criando um programa simples em Delphi [/TUT]
Seg 23 Mar 2009, 18:04
Criando um programa Simples no Delphi 7
16/09/2008 por Fabricio Junior Silva
<!–[if
gte mso 9]> Normal 0 21 false false false PT-BR X-NONE X-NONE
MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]>
<![endif]–> <!–[endif]–>
Primeiro passo é você abrir o Delphi 7.
Em seguida abra um novo Form ( se não estiver aberto).
Vá na Aba Standard Adicione um botão no Form
IMAGEM
Logo após, de Duplo Clike no botão(button1) e você entrara na Unit1(Unit1.pas)
Procure:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
A adicione entre Begin e End o seguinte código
showmessage(’Digite uma mensagem aqui’); //showmessage significa mostre a mensag
portanto ficara assim
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(’Digite uma mensagem aqui’); //showmessage significa mostre a mensag
end;
end.
OBS: Caso você copie o codigo, showmessage(’Digite uma mensagem aqui’); e não de certo apague as aspas simples e insira de novo.
Clike em Salve All e salve a Unt e o projeto
Pressione F9 para testar o programa e pronto
OBS²: Alguns antivirus dectectão que o codigo
showmessage(’Digite uma mensagem aqui’); é um virus caso vocês estejão
utilizando o avast desabilte-o, o mesmo serve para os antivirus que
acusarem virus.
Créditos: Fabricio Silva ~~ Post: Remix
16/09/2008 por Fabricio Junior Silva
<!–[if
gte mso 9]> Normal 0 21 false false false PT-BR X-NONE X-NONE
MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]>
<![endif]–> <!–[endif]–>
Primeiro passo é você abrir o Delphi 7.
Em seguida abra um novo Form ( se não estiver aberto).
Vá na Aba Standard Adicione um botão no Form
IMAGEM
Logo após, de Duplo Clike no botão(button1) e você entrara na Unit1(Unit1.pas)
Procure:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
A adicione entre Begin e End o seguinte código
showmessage(’Digite uma mensagem aqui’); //showmessage significa mostre a mensag
portanto ficara assim
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(’Digite uma mensagem aqui’); //showmessage significa mostre a mensag
end;
end.
OBS: Caso você copie o codigo, showmessage(’Digite uma mensagem aqui’); e não de certo apague as aspas simples e insira de novo.
Clike em Salve All e salve a Unt e o projeto
Pressione F9 para testar o programa e pronto
OBS²: Alguns antivirus dectectão que o codigo
showmessage(’Digite uma mensagem aqui’); é um virus caso vocês estejão
utilizando o avast desabilte-o, o mesmo serve para os antivirus que
acusarem virus.
Créditos: Fabricio Silva ~~ Post: Remix
Permissões neste sub-fórum
Não podes responder a tópicos
|
|