Delphi - opcion en combobox para agregar nuevo item

   
Vista:

opcion en combobox para agregar nuevo item

Publicado por homer (17 intervenciones) el 30/03/2013 15:53:14
hola a todos/as :)


Quiero hacer lo siguiente.. : Tengo un combobox, el cual tiene algunas opciones, que luego de elegir la opcion se presiona un boton y se guarda en una base datos.
Pero en caso de que esta opcion no este en este combobox,e tnocnes quiero que dentro de estas opciones del combobox, aya una que diga AGREGAR NUEVA OPCION, luego de seleccioanr esa opcion.. ahi tal ves que me abra una nueva ventanita, con un edit, para ingrsar la nueva opcion del combobox, luego boton guardar y que me guarde esa opcion en el combobox y ce sierre esa ventana, entonces.. ya tendre la nueva opcion en el combobox, claor que se guardaria en ua base datos, despues cuando inicio el programa de nuevo, tendre esta opcion ya agregada..-

con este codigo cargo al listbox las opcines que ya tenog en el combobox
1
2
3
4
5
6
7
8
9
10
11
12
procedure TFAltaJud.ComboBox1Change(Sender: TObject);
begin
   ADOQuery1.Active := False;
   ADOQuery1.SQL.Text := 'Select MiCampo from miTabla';
   ADOQuery1.Active := True;
   While not ADOQuery1.Eof do
   begin
      Combobox1.Items.Add(ADOQuery1.Fields[0].Text);
      ADOQuery1.Next;
   end;
   AdoQuery1.Active := False;
end;



ahora me falta agregar la opcion, para guardar un nuevo item al combobox
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder