Insertar valores en Combobox

[[oscarac]]

yo acabo de hacer la prueba y si me salen los items

[[oscarac]]

otra forma es que desde el mismo project (program) hagas esto

Código Delphi [-]
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.cmb1.Items.Add('Item 1');
  Form1.cmb1.Items.Add('Item 2');
  Form1.cmb1.Items.Add('Item 3');
  Form1.cmb1.Items.Add('Item 4');
  Form1.cmb1.Items.Add('Item 5');
  Form1.cmb1.Items.Add('Item 6');
  Application.Run;
end.

para un ejemplo sencillo funciona bien... pero imaginate en una aplicacion... tendrias que cargar todos los formularios y pues no es muy aconsejable

[coej]

A eso me refería desde el principio, voila...

No entendía donde poner ese código , y porque no podía ponerlo en el código de unit, al final imaginaba que era ahí...

[coej]

Poniendo este codigo en unit no me salen los items...

Código Delphi [-]
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.

Poniendo esto en Project , si...

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
   Form1.Combobox1.Items.Add('Item 1');
  Form1.Combobox1.Items.Add('Item 2');
    Form1.Combobox1.Items.Add('Item 3');
  Application.Run;
end.

Ni idea de porque???

[[oscarac]]

ok
si necesitas algo mas.. solo pregunta

[coej]

Empezado por oscarac

ok
si necesitas algo mas.. solo pregunta

Seguro que con el formshow te funciona????
Puedes copiarme el código del unit con el que te funciona o lo has pegado del hilo???, es que no se porque a mí no me muestra los items con la procedure formshow???, gracias

[[oscarac]]

Claro aqui esta

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    cmb1: TComboBox;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
  cmb1.Items.Add('Item 1');
  cmb1.Items.Add('Item 2');
  cmb1.Items.Add('Item 3');
  cmb1.Items.Add('Item 4');
  cmb1.Items.Add('Item 5');
  cmb1.Items.Add('Item 6');
  cmb1.ItemIndex := 1;
end;
end.

al final veras una linea cmb1.itemindex := 1;

eso hace que el combo empiece con el ITEM2

en Delphi el primero valor para array o listas es cero

[[Caral]]

Hola
Este es un ejemplo sencillo.
Un combobox que trae los datos de un INI.
Un Edit que se llena con otro dato
Un boton que incluye el dato adicional.
Simple.
Saludos