Cita:
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
public
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