Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Problemas con RadioButton (https://www.clubdelphi.com/foros/showthread.php?t=95314)

kainchu3102 03-08-2021 10:11:47

Problemas con RadioButton
 
Buenas gente, tengo el siguiente problemas estaria necesitando ayuda,

Mi problema es el siguiente cuando selecciono un Radiobutton esta todo perfecto hasta ahi, mi problema se genera cuando utilizo en evento onclose de formulario. cierro el formulario, lo vuelvo abrir desde un boton con ShowModal y el Radiobutton sigue seleccionado
ya intente de todo pero no puedo hacer que el chequeo del radio se haga falso,

intente llamando al foormulario de nuevo de esta manera y nada:

Código Delphi [-]
procedure TFORMEMPLEADOS.Modificar1Click(Sender: TObject);
begin
FORMABMEMPLEADOS.RadioButton3.Checked := False;

 FORMABMEMPLEADOS.ShowModal;


Tambien intente desde el evento onclose y nada:

Código Delphi [-]
procedure TFORMABMESTUDIOS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FORMESTUDIOS.ID_ESTUDIO := 0;
RadioButton3.Checked := False;
end;

Desde ya muchas gracias por su ayuda

APO 03-08-2021 10:20:20

Mira de quitar cualquier foco que tengas en el código, ya que al darle el foco automáticamente se selecciona.

Mira si tienes algo así, y prueba a comentarlo:

Código Delphi [-]
RadioButton3.SetFocus;

Dexter182 03-08-2021 14:59:22

Suscribo a lo que dice APO.
Seguramente el problema esté en el evento FormShow de ese formulario.

Caso contrario, prueba de escribir en ese evento la línea problemática:
Código Delphi [-]
RadioButton3.Checked := False;

Saludos! ^\||/

movorack 03-08-2021 16:00:03

Hola kainchu3102

Si es un modal, imagino que solo sirve para mostrar o capturar algunos datos y no necesitas que esté creado todo el tiempo. Por lo tanto podrías crear y liberar el formulario en cada llamado

Código Delphi [-]
procedure TForm1.CapturarDatosEmpleadosClick(Sender: TObject);
  var
    FrmEmpl: TFormEmpleados;
begin
  FrmEmpl:= TFormEmpleados.Create(Self);
  try
    //Aquí puedes manipular FrmEmpl antes de ser visualizado.
    if FrmEmpl.ShowModal = mrOk then
    begin
      //Aquí capturas los valores de las variables que tienes en el FrmEmpl
    end;
  finally
    FrmEmpl.Free;
  end; 
end;

Neftali [Germán.Estévez] 04-08-2021 12:14:28

Bienvenido a los foros [kainchu3102].
por favor, revisa la guía de estilo y utiliza TAG's cuando escribas código.


La franja horaria es GMT +2. Ahora son las 15:26:57.

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