listbox

epuigdef · #2 26-09-2006

Buenas!

Prueba esto:

Código Delphi [-]procedure TForm1.SpeedButton2Click(Sender: TObject);
var anterior String;
begin 
    anterior := '';
    with ListBox2.Items do 
    begin 
     if ListBox2.ItemIndex < Count-1 then begin 
        ListBox2.ItemIndex := ListBox2.ItemIndex + 1 
        if (ListBox2.items[ListBox2.itemindex] <> anterior) and 
         (anterior <> '') then 
            showmessage('cambio'); 
        anterior := ListBox2.items[ListBox2.itemindex]; 
    end 
    else MessageDlg(Final del curso !',mtInformation,[mbOk],0);
end;

Un saludo

Edu

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Uso del listbox....	WilloW	Varios	5	14-09-2006 21:40:54
ListBox	Tala	OOP	3	21-06-2006 16:31:46
2 Listbox y BD ....	elbilla	Varios	5	04-11-2004 11:06:12
ListBox	neon	OOP	2	09-08-2004 11:15:27
listbox	cesarjbf	OOP	1	16-10-2003 13:17:21