DBListBox - com urgência

03/12/2003

1

Boa tarde.

Preciso de ajuda com o componente DbListbox.
Estou usando esse componente para pegar os items de uma lista e jogar para a outra.
Para pegar o valor do item selecionado eu faço assim:
Edit1.tex := ListAssuntos.SelectedItem;
Isso funciona perfeitamente.
O problema é que eu preciso garantir que o usuário selecionou algum item antes de eu fazer a transferência, então, eu fiz assim:

if (ListAssuntos.SelectedItem = ´´) then
begin
// Mensagem: Você precisa selecionar um item
end
else
begin
// Transfere de uma lista para a outra
end;

Sempre que eu tento transferir de uma lista para outra sem selecionar nada o programa transfere normalmente, é como se o ListAssuntos.SelectedItem sempre tivesse valor, e pelo que pude perceber é sempre o último da lista.

Alguém sabe o que estou fazendo de errado?
Se alguém puder me ajudar.

Agradeço antecipadamente!

Abraços
Ariele


Responder