Insertar valores en Combobox

[coej]

No te preocupes, que soy preguntón por naturaleza, y os vais a hartar de verme por aquí, y lo del las guías de estilo, ya me tiraron hace 2 días de las orejas por ello...

Pues eso, la duda que me sigue aún rondando es si no se puede escribir en las units líneas de código fuera de procedures, types, var etc, y donde se escribiría???
O si quiero iniciar un combobox al abrir el programa valdría con la solución del oncreate , onshow, pero si lo quiero hacer fuera de procedure se podría , en el unit, o debería ser al inicializar en project???

Edito , acabo de probar el código con la solución formshow, y me abre el programa, sin los items añadidos?????

[[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