Label1.Caption:= Label1.Caption + ListBox1.Items[ListBox1.ItemIndex];
--- Em delphi-br@yahoogrupos.com.br, "sinosdata" <[EMAIL PROTECTED]> escreveu
>
> Olá pessoal!!
> Como faço para um label acumular nomes de um listbox à medida que
> clico no botão. A idéia é que no momento em que o usuário clicar no
> botão "ATENDE" ele tire o primeiro paciente da lista e o label receba
> o nome deste paciente. Até aí eu fiz, mas da forma que eu fiz ele
> substitui o paciente anterior recebido pelo label.
>
> Sei que uma forma + interessante seria jogar para um outro listbox,
> mas isto é um exercício de aula e o professor pediu assim.
>
>
> Valeu, Waldir
>
>
> Segue o código do botão "ATENDE"
>
>
>
> procedure TForm1.botaoAtendeClick(Sender: TObject);
> begin
> listaPacientes.Selected [0] := true;
> If listaPacientes.Selected [0] = true then
> Begin
> emAtendimento.Caption:=listaPacientes.items[0];
> listaPacientes.Items.Delete(0);
> End;
> end;
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
