Ver Mensaje Individual
  #6  
Antiguo 18-11-2005
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 23
maeyanes Va por buen camino
Yo uso algo parecido a lo que hace HECTOR, pero sin usar Object.

He aquí como yo lo hago:

Código Delphi [-]
type
  TMiTipoNumerado = (tnUno, tnDos, tnTres);

// ...

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // La lista de items se puede llenar en tiempo de diseño...
  ComboBox1.Add('Uno');
  ComboBox1.Add('Dos');
  ComboBox1.Add('Tres');
  ComboBox1.ItemIndex := 0
end;

procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
  VariableDeTipoNumerado := TMiTipoNumerado(ComboBox1.ItemIndex)
end;

En este caso solo hay que tener cuidado que los items en el combobox tengan el mismo orden que en el tipo numerado.


Saludos...
Responder Con Cita