Jhonas

Alguns exemplos http://www.delphi-central.com/iconex.aspx http://delphi.about.com/od/vclusing/a/filecontrols.htm Pagina 77 desta apostila http://www.scribd.com/doc/5020888/Apostila-de-Delphi-7 Outras apostilas http://www.guiadodelphi.com.br/area.php?categoria=apostilas abraço

Faça uma pesuisa no forum http://scriptbrasil.com.br/forum/index.php...lite=stringgrid abraço

Depende da folha que esta definida na impressora Outros comandos de impressão: abraço

Pelo que voce postou, acho que é um gerador de senhas e não um gerador de nicks.... se não for voce pode alterar o código para o seu uso function GeraSenha (aQuant: integer): string; var i: integer; const str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; begin for i:= 1 to aQuant do begin Randomize; sleep(100); Result := Result + str[Random(Length(str))+1]; end; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := length(Edit1.Text); edit2.text := gerasenha(i); end; Outro exemplo http://www.planetadelphi.com.br/dica/6590/...gal---dietrich) abraço

Soluvel ... procure sempre fazer uma pesquisa no forum pra ver se acha alguma coisa http://scriptbrasil.com.br/forum/index.php...st&p=154110 Outras informações http://www.planetadelphi.com.br/dica/2202/...tos-com-o-mouse http://www.leadtools.com/help/leadtools/v1...ouseDownD4T.htm http://www.kod27.com/kod_detay/8301/delphi-event-ornek.html abraço

frmPrincipal.PageControl1.ActivePage := formname; Douglas... já que quer trabalhar dese modo o certo seria: formname := 'TabSheet2'; if formname = 'TabSheet1' then frmPrincipal.PageControl1.ActivePageIndex := 0; if formname = 'TabSheet2' then frmPrincipal.PageControl1.ActivePageIndex := 1; if formname = 'TabSheet3' then frmPrincipal.PageControl1.ActivePageIndex := 2; abraço

Este é o código do gerador de nicks.... É algo parecido com isso que voce quer ? function seleciona(campo) { campo.focus(); campo.select(); } function geradordenicks_fonte(input) { base = input; tipo1 = document.getElementById('tipo1'); tipo2 = document.getElementById('tipo2'); tipo3 = document.getElementById('tipo3'); tipo4 = document.getElementById('tipo4'); tipo5 = document.getElementById('tipo5'); tipo6 = document.getElementById('tipo6'); tipo7 = document.getElementById('tipo7'); tipo8 = document.getElementById('tipo8'); tipo9 = document.getElementById('tipo9'); tipo10 = document.getElementById('tipo10'); tipo11 = document.getElementById('tipo11'); tipo12 = document.getElementById('tipo12'); tipo13 = document.getElementById('tipo13'); tipo14 = document.getElementById('tipo14'); tipo15 = document.getElementById('tipo15'); tipo16 = document.getElementById('tipo16'); tipo17 = document.getElementById('tipo17'); tipo18 = document.getElementById('tipo18'); tipo19 = document.getElementById('tipo19'); tipo20 = document.getElementById('tipo20'); tipo1.value = base.value .replace(/a/gi, "ล") .replace(/b/gi, "в") .replace(/c/gi, "¢") .replace(/d/gi, "∂") .replace(/e/gi, "э") .replace(/f/gi, "ƒ") .replace(/g/gi, "φ") .replace(/h/gi, "ђ") .replace(/i/gi, "เ") .replace(/j/gi, "נ") .replace(/k/gi, "к") .replace(/l/gi, "ℓ") .replace(/m/gi, "м") .replace(/n/gi, "и") .replace(/o/gi, "๏") .replace(/p/gi, "ק") .replace(/q/gi, "ợ") .replace(/r/gi, "я") .replace(/s/gi, "ร") .replace(/t/gi, "†") .replace(/u/gi, "µ") .replace(/v/gi, "√") .replace(/x/gi, "җ") .replace(/w/gi, "ω") .replace(/y/gi, "ý") .replace(/z/gi, "ž") ; tipo2.value = base.value .replace(/a/gi, "α") .replace(/e/gi, "є") .replace(/h/gi, "н") .replace(/m/gi, "м") .replace(/n/gi, "и") .replace(/o/gi, "σ") .replace(/p/gi, "ρ") .replace(/r/gi, "я") .replace(/s/gi, "ร") .replace(/t/gi, "т") .replace(/u/gi, "υ") ; tipo3.value = base.value .replace(/a/gi, "α") .replace(/e/gi, "є") .replace(/h/gi, "Ћ") .replace(/l/gi, "ł") .replace(/m/gi, "м") .replace(/n/gi, "η") .replace(/o/gi, "ø") .replace(/p/gi, "ρ") .replace(/s/gi, "s") .replace(/t/gi, "ŧ") ; nova_palavra = ""; for(i = 0; i < base.value.length; i++) { texto = base.value.substr(i, 1); if(i % 2 == 0) { nova_palavra+= texto.toUpperCase(); } else { nova_palavra+= texto.toLowerCase(); } } tipo4.value = nova_palavra; tipo5.value = base.value .replace(/a/gi, "ɑ") .replace(/b/gi, "ɓ") .replace(/d/gi, "ɗ") .replace(/e/gi, "ɛ") .replace(/f/gi, "Բ") .replace(/h/gi, "ɦ") .replace(/j/gi, "ʝ") .replace(/l/gi, "ʆ") .replace(/m/gi, "ɱ") .replace(/n/gi, "ɳ") .replace(/o/gi, "ѳ") .replace(/r/gi, "ʀ") .replace(/s/gi, "ร") .replace(/v/gi, "ѵ") ; tipo6.value = base.value .replace(/a/gi, "آ") .replace(/b/gi, "أ") .replace(/c/gi, "ؤ") .replace(/d/gi, "إ") .replace(/e/gi, "ئ") .replace(/f/gi, "ئ") .replace(/g/gi, "ا") .replace(/h/gi, "ب") .replace(/i/gi, "ة") .replace(/j/gi, "ت") .replace(/k/gi, "ث") .replace(/l/gi, "ج") .replace(/m/gi, "خ") .replace(/n/gi, "د") .replace(/o/gi, "ذ") .replace(/p/gi, "ر") .replace(/q/gi, "ز") .replace(/r/gi, "س") .replace(/s/gi, "آ") .replace(/t/gi, "ص") .replace(/u/gi, "ض") .replace(/v/gi, "ط") .replace(/x/gi, "ع") .replace(/w/gi, "ظ") .replace(/y/gi, "غ") .replace(/z/gi, "ב") ; tipo7.value = base.value .replace(/a/gi, "α") .replace(/b/gi, "в") .replace(/c/gi, "૮") .replace(/d/gi, "đ") .replace(/e/gi, "૯") .replace(/f/gi, "Բ") .replace(/h/gi, "ђ") .replace(/k/gi, "ઝ") .replace(/l/gi, "ℓ") .replace(/m/gi, "ʍ") .replace(/n/gi, "ท") .replace(/o/gi, "ѳ") .replace(/p/gi, "ρ") .replace(/q/gi, "૧") .replace(/r/gi, "૨") .replace(/s/gi, "ઽ") .replace(/t/gi, "Ƭ") .replace(/u/gi, "ષ") .replace(/v/gi, "√") .replace(/x/gi, "×") .replace(/w/gi, "ખ") ; tipo8.value = base.value .replace(/a/gi, "α") ; tipo9.value = "[" + base.value.replace(/|/g, "̲̅") .replace(/a/gi,"α") .replace(/p/gi,"ρ") .replace(/n/gi,"и") .replace(/t/gi,"т") .replace(/e/gi,"є") .replace(/u/gi,"υ") .replace(/h/gi,"н") .replace(/s/gi,"ร") .replace(/o/gi,"σ") .replace(/m/gi,"м") .replace(/r/gi,"я") + "]" ; tipo10.value = base.value .replace(/a/gi, "Α") .replace(/e/gi, "э") .replace(/h/gi, "н") .replace(/m/gi, "м") .replace(/n/gi, "И") .replace(/o/gi, "Ø") .replace(/p/gi, "p") .replace(/r/gi, "Я") .replace(/t/gi, "Ŧ") .replace(/u/gi, "u") ; tipo11.value = base.value .replace(/a/gi, "ค") .replace(/b/gi, "๒") .replace(/d/gi, "๔") .replace(/e/gi, "є") .replace(/f/gi, "Ŧ") .replace(/h/gi, "ђ") .replace(/i/gi, "เ") .replace(/j/gi, "ן") .replace(/k/gi, "к") .replace(/l/gi, "l") .replace(/m/gi, "м") .replace(/n/gi, "ภ") .replace(/o/gi, "๏") .replace(/r/gi, "ภ") .replace(/s/gi, "ร") .replace(/t/gi, "т") .replace(/u/gi, "ย") ; tipo12.value = base.value .replace(/a/gi, "Ǻ") .replace(/e/gi, "€") .replace(/h/gi, "Ћ") .replace(/m/gi, "м") .replace(/n/gi, "п") .replace(/o/gi, "Ø") .replace(/p/gi, "ρ") .replace(/r/gi, "Я") .replace(/s/gi, "ک") .replace(/t/gi, "T") .replace(/u/gi, "Ü") ; tipo13.value = base.value .replace(/a/gi, "ɐ") .replace(/d/gi, "p") .replace(/e/gi, "ǝ") .replace(/h/gi, "ɥ") .replace(/m/gi, "ɯ") .replace(/n/gi, "u") .replace(/o/gi, "o") .replace(/p/gi, "d") .replace(/r/gi, "ɹ") .replace(/s/gi, "s") .replace(/t/gi, "ʇ") .replace(/u/gi, "n") .replace(/w/gi, "m") ; tipo14.value = "‮" + base.value; tipo15.value = base.value .replace(/a/gi, "Δ") .replace(/b/gi, "β") .replace(/c/gi, "Ć") .replace(/d/gi, "Đ") .replace(/e/gi, "€") .replace(/f/gi, "₣") .replace(/g/gi, "Ǥ") .replace(/h/gi, "Ħ") .replace(/i/gi, "Ξ") .replace(/j/gi, "Ĵ") .replace(/k/gi, "Ҝ") .replace(/l/gi, "Ł") .replace(/m/gi, "Μ") .replace(/n/gi, "Ň") .replace(/o/gi, "Ø") .replace(/p/gi, "Р") .replace(/q/gi, "Ω") .replace(/r/gi, "Ř") .replace(/s/gi, "Ş") .replace(/t/gi, "Ŧ") .replace(/u/gi, "Ữ") .replace(/v/gi, "V") .replace(/x/gi, "Ж") .replace(/w/gi, "Ŵ") .replace(/y/gi, "¥") .replace(/z/gi, "Ž") ; tipo16.value = base.value .replace(/a/gi, "4") .replace(/e/gi, "3") .replace(/i/gi, "1") .replace(/o/gi, "0") .replace(/s/gi, "5") .replace(/t/gi, "7") ; tipo17.value = base.value .replace(/a/gi, "ⓐ") .replace(/b/gi, "ⓑ") .replace(/c/gi, "ⓒ") .replace(/d/gi, "ⓓ") .replace(/e/gi, "ⓔ") .replace(/f/gi, "ⓕ") .replace(/g/gi, "ⓖ") .replace(/h/gi, "ⓗ") .replace(/i/gi, "ⓘ") .replace(/j/gi, "ⓙ") .replace(/k/gi, "ⓚ") .replace(/l/gi, "ⓛ") .replace(/m/gi, "ⓜ") .replace(/n/gi, "ⓝ") .replace(/o/gi, "ⓞ") .replace(/p/gi, "ⓟ") .replace(/q/gi, "ⓠ") .replace(/r/gi, "ⓡ") .replace(/s/gi, "ⓢ") .replace(/t/gi, "ⓣ") .replace(/u/gi, "ⓤ") .replace(/v/gi, "ⓥ") .replace(/x/gi, "ⓧ") .replace(/w/gi, "ⓦ") .replace(/y/gi, "ⓨ") .replace(/z/gi, "ⓩ") ; tipo18.value = base.value .replace(/a/gi, "á") .replace(/e/gi, "è") .replace(/h/gi, "H") .replace(/i/gi, "í") .replace(/o/gi, "Ô") .replace(/s/gi, "S") .replace(/u/gi, "Ù") ; tipo19.value = base.value .replace(/a/gi, "Ǻ") .replace(/b/gi, "в") .replace(/d/gi, "Ð") .replace(/e/gi, "€") .replace(/f/gi, "ƒ") .replace(/g/gi, "ǥ") .replace(/h/gi, "Ћ") .replace(/l/gi, "Ł") .replace(/m/gi, "м") .replace(/n/gi, "и") .replace(/o/gi, "Ø") .replace(/p/gi, "ρ") .replace(/r/gi, "я") .replace(/s/gi, "ร") .replace(/t/gi, "т") .replace(/u/gi, "Ü") .replace(/x/gi, "×") .replace(/w/gi, "ω") .replace(/y/gi, "¥") .replace(/z/gi, "ƶ") ; tipo20.value=" " + base.value.replace(/|/g,"̶") + " "; } function geradordenicks_cor(input) { base = input; cor1 = document.getElementById('cor1'); cor2 = document.getElementById('cor2'); cor3 = document.getElementById('cor3'); cor4 = document.getElementById('cor4'); cor5 = document.getElementById('cor5'); cor6 = document.getElementById('cor6'); cor7 = document.getElementById('cor7'); cor8 = document.getElementById('cor8'); cor9 = document.getElementById('cor9'); cor10 = document.getElementById('cor10'); cor11 = document.getElementById('cor11'); cor12 = document.getElementById('cor12'); cor13 = document.getElementById('cor13'); cor14 = document.getElementById('cor14'); cor15 = document.getElementById('cor15'); cor1_cor = new Array('b','/b','i','/i'); cor1_z = 0; cor1_novo = ""; for(i = 0; i < base.value.length; i++) { cor1_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor1_texto == " ") { cor1_novo+= ' '; } else { cor1_novo+= '[' + cor1_cor[cor1_z] + ']' + cor1_texto; cor1_z++; } } else { if(cor1_texto == " ") { cor1_novo+= ' '; } else { cor1_novo+= '[' + cor1_cor[cor1_z] + ']' + cor1_texto; cor1_z++; } } if(cor1_cor.length == cor1_z) { cor1_z = 0; } } cor1.value = cor1_novo; cor2_cor = new Array('b','red','/red'); cor2_z = 0; cor2_novo = ""; for(i = 0; i < base.value.length; i++) { cor2_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor2_texto == " ") { cor2_novo+= ' '; } else { cor2_novo+= '[' + cor2_cor[cor2_z] + ']' + cor2_texto; cor2_z++; } } else { if(cor2_texto == " ") { cor2_novo+= ' '; } else { cor2_novo+= '[' + cor2_cor[cor2_z] + ']' + cor2_texto; cor2_z++; } } if(cor2_cor.length == cor2_z) { cor2_z = 0; } } cor2.value = cor2_novo; cor3_cor = new Array('gold','b','orange','/b'); cor3_z = 0; cor3_novo = ""; for(i = 0; i < base.value.length; i++) { cor3_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor3_texto == " ") { cor3_novo+= ' '; } else { cor3_novo+= '[' + cor3_cor[cor3_z] + ']' + cor3_texto; cor3_z++; } } else { if(cor3_texto == " ") { cor3_novo+= ' '; } else { cor3_novo+= '[' + cor3_cor[cor3_z] + ']' + cor3_texto; cor3_z++; } } if(cor3_cor.length == cor3_z) { cor3_z = 0; } } cor3.value = cor3_novo; cor4_cor = new Array('gray','b','silver','/b'); cor4_z = 0; cor4_novo = ""; for(i = 0; i < base.value.length; i++) { cor4_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor4_texto == " ") { cor4_novo+= ' '; } else { cor4_novo+= '[' + cor4_cor[cor4_z] + ']' + cor4_texto; cor4_z++; } } else { if(cor4_texto == " ") { cor4_novo+= ' '; } else { cor4_novo+= '[' + cor4_cor[cor4_z] + ']' + cor4_texto; cor4_z++; } } if(cor4_cor.length == cor4_z) { cor4_z = 0; } } cor4.value = cor4_novo; cor5_cor = new Array('red','violet','orange','gold','yellow','lime','green','blue','navy'); cor5_z = 0; cor5_novo = ""; for(i = 0; i < base.value.length; i++) { cor5_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor5_texto == " ") { cor5_novo+= ' '; } else { cor5_novo+= '[' + cor5_cor[cor5_z] + ']' + cor5_texto; cor5_z++; } } else { if(cor5_texto == " ") { cor5_novo+= ' '; } else { cor5_novo+= '[' + cor5_cor[cor5_z] + ']' + cor5_texto; cor5_z++; } } if(cor5_cor.length == cor5_z) { cor5_z = 0; } } cor5.value = cor5_novo; cor6_cor = new Array('b','purple','orange'); cor6_z = 0; cor6_novo = ""; for(i = 0; i < base.value.length; i++) { cor6_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor6_texto == " ") { cor6_novo+= ' '; } else { cor6_novo+= '[' + cor6_cor[cor6_z] + ']' + cor6_texto; cor6_z++; } } else { if(cor6_texto == " ") { cor6_novo+= ' '; } else { cor6_novo+= '[' + cor6_cor[cor6_z] + ']' + cor6_texto; cor6_z++; } } if(cor6_cor.length == cor6_z) { cor6_z = 0; } } cor6.value = cor6_novo; cor7_cor = new Array('b','violet','/b','pink','fuchsia'); cor7_z = 0; cor7_novo = ""; for(i = 0; i < base.value.length; i++) { cor7_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor7_texto == " ") { cor7_novo+= ' '; } else { cor7_novo+= '[' + cor7_cor[cor7_z] + ']' + cor7_texto; cor7_z++; } } else { if(cor7_texto == " ") { cor7_novo+= ' '; } else { cor7_novo+= '[' + cor7_cor[cor7_z] + ']' + cor7_texto; cor7_z++; } } if(cor7_cor.length == cor7_z) { cor7_z = 0; } } cor7.value = cor7_novo; cor8_cor = new Array('red','yellow','green'); cor8_z = 0; cor8_novo = ""; for(i = 0; i < base.value.length; i++) { cor8_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor8_texto == " ") { cor8_novo+= ' '; } else { cor8_novo+= '[' + cor8_cor[cor8_z] + ']' + cor8_texto; cor8_z++; } } else { if(cor8_texto == " ") { cor8_novo+= ' '; } else { cor8_novo+= '[' + cor8_cor[cor8_z] + ']' + cor8_texto; cor8_z++; } } if(cor8_cor.length == cor8_z) { cor8_z = 0; } } cor8.value = cor8_novo; cor9_cor = new Array('b','red','gray','/gray','/red'); cor9_z = 0; cor9_novo = ""; for(i = 0; i < base.value.length; i++) { cor9_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor9_texto == " ") { cor9_novo+= ' '; } else { cor9_novo+= '[' + cor9_cor[cor9_z] + ']' + cor9_texto; cor9_z++; } } else { if(cor9_texto == " ") { cor9_novo+= ' '; } else { cor9_novo+= '[' + cor9_cor[cor9_z] + ']' + cor9_texto; cor9_z++; } } if(cor9_cor.length == cor9_z) { cor9_z = 0; } } cor9.value = cor9_novo; cor10_cor = new Array('green','lime','olive','teal'); cor10_z = 0; cor10_novo = ""; for(i = 0; i < base.value.length; i++) { cor10_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor10_texto == " ") { cor10_novo+= ' '; } else { cor10_novo+= '[' + cor10_cor[cor10_z] + ']' + cor10_texto; cor10_z++; } } else { if(cor10_texto == " ") { cor10_novo+= ' '; } else { cor10_novo+= '[' + cor10_cor[cor10_z] + ']' + cor10_texto; cor10_z++; } } if(cor10_cor.length == cor10_z) { cor10_z = 0; } } cor10.value = cor10_novo; cor11_cor = new Array('b','purple','violet'); cor11_z = 0; cor11_novo = ""; for(i = 0; i < base.value.length; i++) { cor11_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor11_texto == " ") { cor11_novo+= ' '; } else { cor11_novo+= '[' + cor11_cor[cor11_z] + ']' + cor11_texto; cor11_z++; } } else { if(cor11_texto == " ") { cor11_novo+= ' '; } else { cor11_novo+= '[' + cor11_cor[cor11_z] + ']' + cor11_texto; cor11_z++; } } if(cor11_cor.length == cor11_z) { cor11_z = 0; } } cor11.value = cor11_novo; cor12_cor = new Array('blue','navy','aqua'); cor12_z = 0; cor12_novo = ""; for(i = 0; i < base.value.length; i++) { cor12_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor12_texto == " ") { cor12_novo+= ' '; } else { cor12_novo+= '[' + cor12_cor[cor12_z] + ']' + cor12_texto; cor12_z++; } } else { if(cor12_texto == " ") { cor12_novo+= ' '; } else { cor12_novo+= '[' + cor12_cor[cor12_z] + ']' + cor12_texto; cor12_z++; } } if(cor12_cor.length == cor12_z) { cor12_z = 0; } } cor12.value = cor12_novo; cor13_cor = new Array('green','b','/b','teal','i','/i'); cor13_z = 0; cor13_novo = ""; for(i = 0; i < base.value.length; i++) { cor13_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor13_texto == " ") { cor13_novo+= ' '; } else { cor13_novo+= '[' + cor13_cor[cor13_z] + ']' + cor13_texto; cor13_z++; } } else { if(cor13_texto == " ") { cor13_novo+= ' '; } else { cor13_novo+= '[' + cor13_cor[cor13_z] + ']' + cor13_texto; cor13_z++; } } if(cor13_cor.length == cor13_z) { cor13_z = 0; } } cor13.value = cor13_novo; cor14_cor = new Array('gold','orange','red','maroon','red','orange'); cor14_z = 0; cor14_novo = ""; for(i = 0; i < base.value.length; i++) { cor14_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor14_texto == " ") { cor14_novo+= ' '; } else { cor14_novo+= '[' + cor14_cor[cor14_z] + ']' + cor14_texto; cor14_z++; } } else { if(cor14_texto == " ") { cor14_novo+= ' '; } else { cor14_novo+= '[' + cor14_cor[cor14_z] + ']' + cor14_texto; cor14_z++; } } if(cor14_cor.length == cor14_z) { cor14_z = 0; } } cor14.value = cor14_novo; cor15_cor = new Array('b','/b','u','/u','red','/red','i','/i'); cor15_z = 0; cor15_novo = ""; for(i = 0; i < base.value.length; i++) { cor15_texto = base.value.substr(i, 1); if(i % 2 == 0) { if(cor15_texto == " ") { cor15_novo+= ' '; } else { cor15_novo+= '[' + cor15_cor[cor15_z] + ']' + cor15_texto; cor15_z++; } } else { if(cor15_texto == " ") { cor15_novo+= ' '; } else { cor15_novo+= '[' + cor15_cor[cor15_z] + ']' + cor15_texto; cor15_z++; } } if(cor15_cor.length == cor15_z) { cor15_z = 0; } } cor15.value = cor15_novo; abraço

See in this address http://mininova.bittorrent.am/torrents.php...cat=2&ord=t hug

Um exemplo bem simples uses SHellAPI; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var Caminho: TextFile; Line: string; begin if key = #13 then begin Memo1.Clear; if FileExists('c:\temp.txt') then DeleteFile('c:\temp.txt'); WinExec(pchar('cmd.exe /c ' + pchar(edit1.text) + ' > c:\temp.txt'), 0); sleep(1000); AssignFile(Caminho, 'C:\temp.txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); Memo1.Lines.Append(Line); end; CloseFile(Caminho); end; end; Voce digita o comando DOS no edit e ao teclar enter é mostrado em um Memo o resultado do comando Uma outra maneira http://www.nelioalves.com/arquivos/EAP_Instrucoes_Delphi.doc Rodar um programa em MS-DOS e esperar até que o programa termine. http://www.bsdg.org/swag/DELPHI/0292.PAS.html Acho que com esse material voce pode ter novas idéias abraço

Coloque o numero da pagina... exemplo PageControl1.ActivePageIndex := 1; PageControl1.ActivePageIndex := 0; PageControl1.ActivePageIndex := 3; PageControl1.ActivePageIndex := 2; abraço

Douglas ... com o botão direito do mouse no pagecontrol voce cria ( New Page ) quantas paginas ( abas ) voce quiser e cada uma delas voce pode colocar um nome ou usar o nome padrão ( tabsheet1 , tabsheet2, tabsheet3 .. etc ) na verdade voce usaria o tabsheet, clicando neles voce vera que cada um tem um nome, e dentro de cada tabsheet voce pode montar outras telas de informação para a sua aplicação. É como se voce colocasse varios forms dentro de um apenas. abraço

Um exemplo que pode te ajudar http://www.chmod.com.br/vb/showpost.php?p=...amp;postcount=5 abraço

Se a data dos serviços não for problema, voce pode usar QRGroup para ajuntar os dados em apenas um Faça uma busca no forum http://scriptbrasil.com.br/forum/index.php...ighlite=qrgroup abraço

Te passei apenas um exemplo, voce deve adptar o código ao seu uso A sua pergunta foi: como que eu faço para simular o click do mouse so que presionado? o outro comando é para simular "soltando o botão esquerdo do mouse" Voce quer coordenadas do Form Ativo ou Janela do windows ? http://www.tecnobyte.com.br/dica2.html http://scriptbrasil.com.br/forum/index.php...st&p=154110 Faça uma busca no forum .. vai encontrar mais informações sobre uso do mouse http://scriptbrasil.com.br/forum/index.php...ite=coordenadas Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, Pt.x, Pt.y, 0, 0); abraço

Isso é bem simples procedure TForm1.Button1Click(Sender: TObject); var Caminho: TextFile; Line: string; begin Memo1.Clear; if FileExists('c:\IPCONFIG.txt') then DeleteFile('c:\IPCONFIG.txt'); WinExec(pchar('cmd.exe /c IPCONFIG /all > c:\IPCONFIG.txt'), 0); sleep(3000); AssignFile(Caminho, 'C:\IPCONFIG.txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); Memo1.Lines.Append(Line); end; CloseFile(Caminho); end; OBS: Alterei o título do seu tópico para ficar mais coerente com a sua pergunta abraço

Writeln(F,#27#15+ '' + dmempresa5.cdsempresacabecalho.Text); voce está usando comando de impressão direta, neste caso é assim: Writeln(F,#27#97#49+ '' + dmempresa5.cdsempresacabecalho.Text); abraço

Veja este exemplo http://www.delphimais.com/modules/wfdownlo...id=2&lid=19 Procure tambem no forum por Tabsheet ou PageControl abraço

Douglas ... olhei o seu video. Qual a necessidade de abrir o mesmo formulario mais de uma vez ? mesmo que voce tenha que trabalhar com outras abas ( outras telas de informação ) existentes no form, não vejo a necessiade disso. Acho que o que voce esta querendo fazer se resolve com este comando SetWindowPos(FMovCaixa.handle, HWND_NOTOPMOST, FMovCaixa.Left, FMovCaixa.Top,FMovCaixa.Width, FMovCaixa.Height, 0); // HWND_NOTOPMOST normal abraço

Esta errada... o certo seria select * from PUB.st-teste where cod_teste = 1 Para maiores informações sobre a sintaxe dos comandos SQL veja http://www.mckoi.com/database/SQLSyntax.html#15 http://office.microsoft.com/en-us/access/HA010345621033.aspx abraço

Não ... isso é automatico para cada estação e nunca vão coincidir Sim Não ... apenas um para um grupo de tabelas Exemplo: DataModule1.CDS_Horarios.Post; DataModule1.CDS_Horarios.ApplyUpdates(-1); DataModule1.CDS_Cadastro.Post; DataModule1.CDS_Cadastro.ApplyUpdates(-1); DataModule1.CDS_Pagamentos.Post; DataModule1.CDS_Pagamentos.ApplyUpdates(-1); MessageDlg('Alterações efetuadas com sucesso! ', mtInformation, [mbOK], 0); //ATUALIZAR OS DADOS PARA A REDE IBTransaction1.Commit; IBTransaction1.StartTransaction; Talvez tenha mudar pouquissimas coisas Não ... voce vai usar o firebird Tabela Nested É uma tabela que é representada como uma coluna dentro de outra tabela. É um conjunto não ordenado de elementos do mesmo tipo. Tem uma única coluna e o tipo da coluna é um tipo pré-definido ou um tipo de objeto. create table EMPREGADOS (Nome VARCHAR2(25), CPF NUMBER, Telefones TELEFONES_NT ) NESTED TABLE Telefones store as TELEFONES_ST; create type TELEFONES_NT as table of VARCHAR2(14) Se tiver que mudar será apenas na maneira de fazer o relacionamentos entre as tabelas OBS: Qualquer outra duvida, faça uma pesquisa no forum pela palavra Firebird abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=534234 abraço

{O exemplo abaixo simula o pressionamento da tecla do botão esquerdo do mouse em uma determinada posição da tela. No exemplo serão utilizados dois botões (Button1 e Button2), ao clicar no Button2 será executado o onClick do Button1 como se o mouse tivesse clicado sobre ele } procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Button 1 clicked'); end; procedure TForm1.Button2Click(Sender: TObject); var Pt : TPoint; begin Application.ProcessMessages; {Obtém o point no centro do Button1} Pt.x := Button1.Left + (Button1.Width div 2); Pt.y := Button1.Top + (Button1.Height div 2); {Converte Pt para as coordenadas da tela } Pt := ClientToScreen(Pt); Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); {Move o mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0); {Simula o pressionamento do botão esquerdo do mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); { Simula soltando o botão esquerdo do mouse } Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); end; Outros tópicos sobre o assunto que podem interessar http://scriptbrasil.com.br/forum/index.php...st&p=292445 http://scriptbrasil.com.br/forum/index.php...st&p=538371 Qual a finalidade ??? abraço

Douglas ... porque tem que ter 2 forms com o mesmo nome ? só vai existir 2 forms com o mesmo nome se voce quiser. Reveja os códigos e voce encontrará a maneira de se fazer isso abraço

A estrutura que te passei tambem serve para o Firebird mas eu optaria por usar IBDatabase, IBTransaction, IBQuery + DataSetProvider + ClientDataSet + DataSource só que ao invéz de conectar o interbase será o firebird Tenho alguns sistemas com essa configuração funcionando em rede e não tenho tido problema nenhum abraço

Para te ajudar um pouco mais .... veja estas apostilas http://www.planetadelphi.com.br/download/5...ports---parte-i http://www.softplatz.net/software/rave-report-tutorial/ http://www.downloadpipe.com/free-trial/Rav...oad1208166.html abraço