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}
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
FPosicion := poArriba;
cbPosicion.ItemIndex := 0;
end;
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.