Trocar ponto por virgula, ou virgula por ponto, muitas vezes precisamos desse codigo para o preenchimento de um cadastro. E necessario atencao. O codigo e bem simples e facil.Trocar o PONTO pela VIRGULANo Evento OnKeyPress da Caixa de Texto (TEdit):procedure TForm1.TEdit1KeyPress(Sender: TObject; var Key: Char);beginif Key in [',','.'] then Key := DecimalSeparator;end;Trocar a VIRGULA pelo PONTONo Evento OnKeyPress da Caixa de Texto (TEdit):procedure TForm1.TEdit2KeyPress(Sender: TObject; var Key: Char);beginif Key in ['.',','] then Key := '.';end;********************************************************************Faca o download do arquivo: Ponto e Virgula.rar********************************************************************"A vida e para quem topa qualquer parada. Nao para quem para em qualquer topada." Bob Marley. ATENCAO:...Endereco do SITE:http://www.semfioconfio.com.br E o endereco do email para contato tambem mudou, agora e:info@semfioconfio.com.brNo site tem novas atualizacoes (novos posts).O Site do Sem Fio Confio, esta muito bom. Alem do BLOG do Delphizinho, tem tambem de FOXPRO, Eletronica, Culinaria, e PC me Byte que e de Informatica. E tem varias coisas legais, dentre elas, jogos e a nossa Loja onde vendemos os produtos. E agora estamos conectados a uma das maiores redes sociais, o Facebook.Aguardo voces la. Ate. Quebrar linhas no MessageBox, e simples, basta utilizar o comando #13.Exemplo exibido em um botao (TBitbtn):procedure TForm1.BitBtn1Click(Sender: TObject);beginApplication.MessageBox(PChar('Gerando Sistemas...' + #13 + 'Delphi'), 'Teste Quebrar Linha', MB_ICONEXCLAMATION);end;**********************************************************************************Faca o download do arquivo: Quebrando Linhas no MessageBox.rar**********************************************************************************"Treino, e treino,jogo e jogo." Nenem Prancha. Nesse codigo podemos criar varios Edits (caixas de texto) dinamicamente no formulario.Vejamos:private{ Private declarations }ArrayEdit : Array[0..9] of TEdit; //define quantidade de Edits a serem criadasDentro de um Button ou em qualquer outro lugar de sua preferencia, coloque:varx : integer;beginfor x := 0 to 9 do beginArrayEdit[x] := TEdit.Create(Self);ArrayEdit[x].Parent := Self;ArrayEdit[x].Text := 'Edit' + IntToStr(x);ArrayEdit[x].Left := 10;ArrayEdit[x].Top := 30 + x * 20;end;//Edit n 5, mudando a cor da fonteArrayEdit[5].Font.Color := clBlue;end;************************************************************Faca o download do arquivo: Edits Dinamico.rar************************************************************"Programar nao significa nada;o importante e encontrar." Pablo Picasso. Joaozinho chega no colegio... ai a Mariazinha joga uma bola de papel na cabeca dele e fala:-Head Shot ( tiro na cabeca )Joaozinho pega o livro e taca na cara da Mariazinha e diz:-HAHAHAHA FACE BOOK! P= Porque a fanta e amiga da cocacola ?R= Porque a fanta quebra, a coca-COLA Um paraplegico passeando com um cego, ve uma loira muito bonita atravessando a rua.Para tirar uma com a cara do cego diz:- Olha que loira bonita atravessando a rua!!!O cego muito brabo responde:- Ah e? Entao corre atras dela!!! No meio da brincadeira de esconde-esconde o Joaozinho se enfiou no guarda roupas do quarto da mae. Como ninguem o achava e estava escuro, ele acabou pegando no sono e ficou dormindo dentro do armario, ate acordar com alguem entrando la tambem. Era o amante da mae. Surpreendido com a chegada inesperada do marido, o cara teve que se esconder tambem. Ai o Joaozinho resolveu puxar um papo:-Ta escuro aqui, ne?-E. - responde o homem meio sem graca.-Quer comprar minha bola de futebol?-Nao obrigado.-Tem certeza? fala o Joaozinho elevando o volume da voz.-Ta certo. Eu compro. Quanto e?-Cem reais.-O que?! Quer dizer, eu pago, afinal nao estou em condicoes de reclamar...Dai a pouco...-Ta escuro aqui ne? Diz o Joaozinho.-Ta,