Ver Mensaje Individual
  #3  
Antiguo 25-01-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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.

Última edición por nlsgarcia fecha: 25-01-2013 a las 16:36:03.
Responder Con Cita