Início
![[Soucer Codigo] Comando de mensagem no Delphi7 Empty](https://2img.net/i/empty.gif)
por Adicione:
Button 1
Em properties >> Text
Button 1 >>> Creditos
Obs: vocês poderam usar também o menu strip De 2 cliques no Button
Abaixo de {$R *.dfm} coloque esse codigo:
Button 1
Em properties >> Text
Button 1 >>> Creditos
Obs: vocês poderam usar também o menu strip De 2 cliques no Button
Abaixo de {$R *.dfm} coloque esse codigo:
Código:
- Código:
Procedure ExibirMensagem(SuaMensagem: String);
begin
ShowMessage(SuaMensagem);
end;
Procedure Apitar;
begin
Beep;
end;
ou assim:
Código:
- Código:
ExibirMensagem('SuaMensagemAqui');
Apitar;
Creditos
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
![[Soucer Codigo] Comando de mensagem no Delphi7 I_vote_lcap](https://2img.net/s/t/17/08/32/i_vote_lcap.png){kind=small}
![[Soucer Codigo] Comando de mensagem no Delphi7 I_voting_bar](https://2img.net/s/t/17/08/32/i_voting_bar.png){kind=small}
![[Soucer Codigo] Comando de mensagem no Delphi7 I_vote_rcap](https://2img.net/s/t/17/08/32/i_vote_rcap.png){kind=small}