Ver Mensaje Individual
  #9  
Antiguo 12-04-2011
coej coej is offline
Miembro
NULL
 
Registrado: abr 2011
Ubicación: MANCHEGO-ESPAÑOL
Posts: 65
Reputación: 14
coej Va por buen camino
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
Responder Con Cita