label.caption:=label.caption+nome;
----- Original Message -----
From: sinosdata
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 18, 2006 5:45 PM
Subject: [delphi-br] label acumulando nomes
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;
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
