Ver Mensaje Individual
  #7  
Antiguo 12-04-2011
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Cita:
Empezado por coej Ver Mensaje
.............. 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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita