Aí Marcio parabéns!
Esse é o espírito! Pegar a isca e ir pescar! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcio Enviada em: terça-feira, 4 de março de 2008 12:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: RES: [COMBOBOX] Valeu pela dica .. apartir dela achei uma solucao ... descobri... (google) .. att. MArcio procedure TForm1.Button2Click(Sender: TObject); var S: String; I,V, Idx: Integer; begin i := 0; while i < 10 do begin s := 'Alguma Coisa' + IntToStr(i); //i := 0000; // Seu ID V := i * 1000; ComboBox1.Items.AddObject(s, TObject(V)); // Essa é a linha "mágica" i:= i + 1; end; end; procedure TForm1.ComboBox1Click(Sender: TObject); var S: String; I, Idx: Integer; begin Idx := Combobox1.ItemIndex; S := ComboBox1.Items[Idx]; I := Integer(Combobox1.Items.Objects[Idx]); // continua .... Edit1.Text := intToStr(Idx); Edit2.Text := S; Edit3.Text := intToStr(I); end; [As partes desta mensagem que não continham texto foram removidas]
