Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Radiobutton inicializacion (https://www.clubdelphi.com/foros/showthread.php?t=82095)

macrossman 25-01-2013 14:48:22

Radiobutton inicializacion
 
Hola tengo un problema, quiero inicializar el check del radiobutton, tengo 3. Tengo un formulario principal q llama a otro y ahi es donde intento poner radiobutton1.Checked y lo q sucede es q en el primer ingreso lo inicializa pero cuando se se presiona por ejemplo el radiobutton2 , se cierra el segundo formulario y lo abro nuevamente queda tildado el radiobutton2 no el 1. A alguien le paso? saludos

Casimiro Notevi 25-01-2013 15:16:06

No se entiende bien lo que preguntas :confused:

nlsgarcia 25-01-2013 16:22:05

macrossman,

Cita:

Empezado por macrossman
,,,quiero inicializar el check del radiobutton, tengo 3. Tengo un formulario principal q llama a otro,,,

Revisa este código:
Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
El código anterior inicia la aplicación solo con el Form1 activo.

Revisa este código:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   Application.CreateForm(TForm2, Form2);
   Form2.Show;
end;
El código anterior crea y llama a Form2 desde Form1.

Revisa este código:
Código Delphi [-]
procedure TForm2.FormCreate(Sender: TObject);
begin
   RadioButton1.Checked := True;
   RadioButton2.Checked := False;
   RadioButton3.Checked := False;
end;

procedure TForm2.FormCLose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;
El código anterior inicializa tres controles TRadioButton en el evento OnCreate de Form2 y libera todos los recursos de este en el evento OnClose. En cada llamada a Form2 solo el control RadioButton1 estará activo al crear el formulario.

Quizás te interese revisar este link:
Cita:

Setting TRadioButton to checked causes OnClick event: http://stackoverflow.com/questions/2...-onclick-event
Espero sea útil :)

Nelson.

macrossman 25-01-2013 17:12:09

Gracias [nlsgarcia] tu solución fue perfecta. Saludos


La franja horaria es GMT +2. Ahora son las 10:14:19.

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