VOZ DO MEU CORACAOSe eu te falo de amor,E porque estou te amando.Nao um amor aventureiro,Infantil, inconsequente.Esses sao passageiros,Esquecidos facilmente.Quando te falo de amor,E com sentimento despertado,Com o coracao escancarado,Pra te dizer sem medo.Amo-te.Nao um, te amo,Jogado, displicente.E sim,Um vou te fazer feliz.Quando te falo do meu amor,Nao envolvo coisas materiais.Elas influenciam negativamente,Passa a ser, amor interesseiro.O amor nao se inventa,Nao se compra a credito,Mentira nao o alimenta.O amor nasce, cresce, vive,E morre no coracao.Mantem-se ele vivo,Dando e recebendo amor.Quando quero te falar de amor,E porque quero dar,E receber amor.Com carinho, tolerancia e confianca,Sacrificios e promessas verdadeiras.Quando preciso te falar de amor,Eu so falo de amor.So de amor,Amor!( JUNIOR MAX ) Coloque no Butao:playsound(pchar('NOME_ARQUIVO.wav'),0,snd_async); No OnClose do tal Form coloqueapplication.Terminate;ou Formx.close;Obs: X e o numero do form. No OnClick do butao:application.Minimize; Salve seu projeto, va em Projects -> Language -> Addby borland delphi. varArq: TResourceStream;beginbeginArq:= TResourceStream.Create(HInstance, 'fight_stg', 'KOMFILE');tryArq.SaveToFile(Edit1.Text+'\Stage\fight_stg.KOM');finallyArq.Free;end;end;ShowMessage('Ativado com sucesso.');end;o resto e com voces.by borland delphi. //Basta colocar "#13" quando desejar mudar de linha!!Exemplo.:showmessage('Linha 1' + #13 + 'Linha 2' + #13 + 'Linha 3');Pronto!!Comentem essa dica!!!Abraco. Nesse processo tem que ter 2 FormsForm1 e Form2No butao do form1 coloque:Form2.Show;No OnClose do form 2 ponha: Application.terminate;d [media]http://www.youtube.com/watch?v=g6yujmF7OC0[/media] [quote name='Leandro' timestamp='1315010507' post='27543']Adicione um Edit.na Propiedade do edit (Object inspector) Proucure por Passwordchar ai vai esta assim :PasswordChar = #0Mude Para :PasswordChar = *Ai Quando Vs Digitar Algo Ao Inves de aparecer alguma letra aparecera ***OBS : Object inspector : e onde voce muda o Text do Edit , Caption da label.Isso E Mt Util Para Sistemas De Login[/quote] {coloque um ttimer, um panel, um label dentro do panel. Set a propriedade interval do timer de 1000 para 1. isso fara com que o letreiro fique mais rapido.Mude as cores e o caption do label como quiser. depois acrescente os codigos abaixo}procedure TForm1.Timer1Timer(Sender: TObject);begin if label1.Left=panel1.Width then label1.Left:=-(label1.Width) else label1.Left:=label1.Left+1;end;procedure TForm1.FormShow(Sender: TObject);begin label1.Left:=-(label1.Width);end; Bom dia gente!!!! Bom, resolvi postar sobre os vestidos que vao estar em alta no verao 2013!Entao, pra quem gosta, aproveitem as dicas!!!Olha garotas, pra quem gosta de um vestidinho no verao, aproveitem para usar os que tem a parte de tras mais comprida... Voce fica elegante e na moda!E nao vamos esquecer das estampas e das cores...esperam que tenham gostado das dicas...E ai, qual e o seu preferido???bjos... by: Barbara. Ola meninas!!! Hoje vou mostrar um pouco sobre os tons de esmaltes que estarao em alta no verao 2013... Combinam tanto com as mais discretas ate as mais ousadas...Para aquelas que sao ousadas, usem e abusem de esmaltes coloridos em tons pastel....E para aquelas mais discretas vamos usar e abusar de tons nude, coral e cores proximas...Bom meninas por hoje e so, espero que tenham gostado...Comentem o seu preferido, que tons voce usaria,... enfim... qual e a sua cor verao 2013???Bjok... Barbara... Oi pessoal, hoje vim mostrar algumas capinhas de Iphone que eu me apaixonei...Espero que tenham gostado.Deixem suas opinioes.Bom domingo. Oi pessoal, hoje vim falar sobre tachinhas. Que esta super na moda e que eu amoo. Espero que gostem.Sapatos com Tachas:*FavoritoSlipper:Bolsas:Coletes:O que voces acharam, gostam de tachas?bj Taty Twitter:@tatii_tsf