Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   obligar a seleccionar opcion en COMBOBOX o tipo modal (https://www.clubdelphi.com/foros/showthread.php?t=45068)

thelibmx 21-06-2007 19:59:59

obligar a seleccionar opcion en COMBOBOX o tipo modal
 
hola tal ves esto es una pequeñes, pero siempre hay alguna primera ves.. veran tengo un combobox y lo que quiero es obligar a alguien a que seleccione un contenido del combobox, entonces digamos que tengo mi combobox de tipo style=csDropDownList al abrir mi formulario tiene el foco principal, entonces el caso es que si un usuario le da click se despliegan opcion 1 opcion2 y opcion3, pero si no selecciono nada y doy click en cualquier otra parte del formulario no se selecciona ningun item, entonces quisiera saber como controlar eso, para que no te deje salir de ese combo hasta no haber seleccionado una opcion. digamos que el pseudocodigo que quiero es algo mas o menos asi:

si combobox no tiene ningun item seleccionado
entonces mandar mensaje de ''debe seleccionar una opcion''

no se si me de a entender?


de antemano muchas gracias

egostar 21-06-2007 20:27:27

Usa el evento OnExit del ComboBox y valida el text del mismo, ahi podrás enviar un mensaje de aviso y regresar el foco al Combo.

Salud OS.

thelibmx 21-06-2007 20:41:29

chispas, que mala pata, si se hacer eso que escribiste pero no se por que no lo pense, creo que mi procesador(cerebro) esta teniendo fallas, Gracias egostar, creo que me congele je je.. GRACIAS

bueno aqui dejo parte de como lo hice para ayudar a otros despistados jeje (que pena)

En el evento onExit
Código Delphi [-]
if ComboBox1.Text='' then
begin
MessageBox(Handle,PChar('Debe seleccionar una opcion'),PChar('Atencion!!'),MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
ComboBox1.SetFocus;
end;

igual si estoy mal pues se aceptan comentarios, pero en general hace lo que queria :)


La franja horaria es GMT +2. Ahora son las 09:32:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi