Insertar valores en Combobox

[nemesio]

Código Delphi [-]

unit Unit1;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)
   ComboBox1: TComboBox;
   procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
   private    { Private declarations }  
   public    { Public declarations }  
end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Combobox1.items.add('ITEM');
end;
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Chr(13) then
  with Combobox1 doif (Text <> '') and (Items.Indexof (Text) < 0) then
     Items.Add (Text);
end;

end.

Ahí está un ejemplo de como lo harás en el evento onClick de un Button. Tambien puedes hacerlo en cualquier otro evento como el OnShow del formulario o como mejor te convenga dependiendo de la necesidad.

Saludos

[coej]

Gracias Nemesio, eso no lo puedo hacer "a pelo", es decir siempre lo tengo que asociar a un evento o componente del formulario, si lo quisiera hacer simplemente insertarlo sin asociarlo a algún evento o componente???, es decir, simplemente quiero insertar 2 items a pelo en línea de codigo sin asociar a nada...?????

[*Caro*]

Empezado por coej

.............. si lo quisiera hacer simplemente insertarlo sin asociarlo a algún evento o componente???, es decir, simplemente quiero insertar 2 items a pelo en línea de codigo sin asociar a nada...?????

Hola de nuevo coej, puedes utilizar el evento OnCreate o OnShow de tu formulario:

Código Delphi [-]
unit Unit1;

interface

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)
   ComboBox1: TComboBox;
   procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
   private    { Private declarations }
   public    { Public declarations }
end;

var  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Chr(13) then
  with Combobox1 do
   if (Text <> '') and (Items.Indexof (Text) < 0) then
     Items.Add (Text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 Combobox1.items.add('ITEM 1');
 Combobox1.items.add('ITEM 2');
end;

end.

Saluditos

[beginner01]

Empezado por coej

Gracias Nemesio, eso no lo puedo hacer "a pelo", es decir siempre lo tengo que asociar a un evento o componente del formulario, si lo quisiera hacer simplemente insertarlo sin asociarlo a algún evento o componente???, es decir, simplemente quiero insertar 2 items a pelo en línea de codigo sin asociar a nada...?????

saludos.

Código Delphi [-]
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Chr(13) then
  with Combobox1 do
   if (Text <> '') and (Items.Indexof (Text) < 0) then
     Items.Add (Text);
end;

si dejas solo esta parte fijate que si vas agregando texto y presionando la tecla enter el combobox se ira llenendo con el texto correspondiente.

[coej]

Gracias a ambos, por lo que veo hay que meter "todo", en procedures o eventos-componentes , etc, no se puede hacer a "pelo", vengo de otros lenguajes de programación y por lo que estoy comprobando en distinto...

Si, esa parte de código la seguía de la biblia, y te inserta lo que escribes, pero cuando sales del programa y vuelves a entrar , no lo almacena...

Mí duda va más después de ver vuestras respuestas, en que un unit , no puedo poner la línea en ningún sitio como yo quiero(solo la línea...de código que subrayo(es decir en el unit no hay ninguna línea de código fuera de procedures, funciones si las hay , type, ect,???????...

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

  Form1.Combobox1.items.add('ITEM');

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Chr(13) then
with Combobox1 do
if (Text <> '') and (Items.Indexof (Text) < 0) then
Items.Add (Text);
end;

   
end.

Y no sé si puedo hacerlo en la parte de código de project , en el cual se inicializan la aplicación...
Creo que tengo que dar un repaso a la estructura básica de un programa en delphi para aclararme yo...


Pero una de las cosas que quiero intentar, es que se inicialice el combobox, por ejemplo con dos items (rojo y azul), al abrir el programa, y después , si inserto alguno más que se guarde para la próxima vez que se abra(quizás esto último sería ya asociado a otros contenedores)...

Muchas gracias por vuestras respuestas y paciencia, un saludo de un novatazo..jeje

[[oscarac]]

puse lo que deseas se puede hacer de muchas formas

se puede utilizar una tabla, una base de datos, un archivo texto, donde se vaya almacenando los Items que quieras agregar (debes tener en cuenta que tambien esta la posibilidad de eliminar los Items que ya no desees, pero eso depende de lo que quieras hacer)

solo por curiosidad... de que lenguaje provienes?

[coej]

Si eso imagino que se podrá hacer, cuando llegue a ello , ya preguntaré seguro, ahora solo estoy viendo cosas muy básicas siguiendo la biblia de delphi 7 de marco cantu.

java, oracle 10g, no tiene nada parecido a las units, y el project, donde se inicializa la aplicación, al menos no igual...