death_shade666

mtooo obrigado deu certinhooo ... =D

por favor estou a semanas pesquisando e não acho isso ... sou novato no delphi e presciso exibir o total de linha do componente tmemo q tenho no meu sistema ..... em um label como faço isso????

não sei me expressar claramente ... mas a ideia é q de alguma forma com a linha de comando ex: WebBrowser1.OleObject.document.all.item('email_do_amigo',0).value:=( aqui q eu não sei oque eu uso, se uso um meno ou combobox seila ) para ele pegar os email um de cada vez e conforme ele for pegando os email a lista ira diminuindo presciso de ajuda pois estou tendo q colar um de cada vez em um edit desculpe a minha ignorancia, pois começei agora aprender delphi .. agradeço desde já

Olá primeiramente gostaria de agradecer a ajuda q este forum me traz sempre, sou iniciante em delphi estou fazendo um programinha que preecher um formulario de uma pagina em html com os seguintes forms nome email nome do amigo email do amigo messagem beleza , mas estou com problemas na hora de preencher o campo email do amigo por tem q ser de uma foma dinamica presciso de alguma forma pegar os emails de uma lista um de cada vez e não sei como eu fiz com um memo mas na hora ele ao invez de pegar so o primeiro email ele pega todos email de uma vez ... esta assim no momento ... so faltando a parte aonde ficara os email para serem carregados obs. ainda estou carregando eles com um buton, mas assim q resolver esta questao usarei um timer .. implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.OleObject.document.all.item('txtnome_paciente',0).value:=edit1.Text; WebBrowser1.OleObject.document.all.item('txtemail_paciente',0).value:=edit1.Text; WebBrowser1.OleObject.document.all.item('txtmsgm',0).value:=Memo1.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.meusite.com.br/indique_amigo.asp'); end; end.