Ver Mensaje Individual
  #3  
Antiguo 18-11-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No sé si te servirá de algo o no, pero allá voy. Digo yo, que, puesto que el usuario ha de elegir "una opción" desde un "TComboBox",... ¿porqué no hacer uso de la propiedad "ItemIndex" del mismo y de su evento "OnChange" para con un "case .. of" determinar qué opción elige el usuario?... Mejor con esto que he escrito ahora, a ver si te da alguna idea o más dudas que otra cosa.

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Forms, Classes, Controls, StdCtrls;
 
 type
   TPosicion = (poArriba, poDerecha, poAbajo, poIzquierda);
 
 type
   TfrmPrincipal = class(TForm)
     cbPosicion: TComboBox;
     procedure FormCreate(Sender: TObject);
     procedure cbPosicionChange(Sender: TObject);
   private
     FPosicion: TPosicion;
   end;
 
 var
   frmPrincipal: TfrmPrincipal;
 
 implementation
 
 {$R *.dfm}
 
 // Se crea este formulario.
 //
 procedure TfrmPrincipal.FormCreate(Sender: TObject);
 begin
   FPosicion := poArriba;
   cbPosicion.ItemIndex := 0;
 end;
 
 // "cbPosicion" es un "TComboBox", y el siguiente
 // método corresponde a su evento "OnChange".
 //
 procedure TfrmPrincipal.cbPosicionChange(Sender: TObject);
 begin
   case cbPosicion.ItemIndex of
     0: FPosicion := poArriba;
     1: FPosicion := poDerecha;
     2: FPosicion := poAbajo;
     3: FPosicion := poIzquierda;
   end;
 end;
 
 end.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita