Ver Mensaje Individual
  #1  
Antiguo 29-12-2013
n03l n03l is offline
Miembro
 
Registrado: feb 2007
Posts: 73
Reputación: 18
n03l Va por buen camino
Crear Form y pasarle parametro

Saludos, Tengo un pequeño problema, ya que al crear un form necesito pasarle un parametro para que Lea ciertas configuraciones de un archivo ini.

Desde el Form Principal creo el Form (Que se crea varias veces pero con diferentes parametros)

Código Delphi [-]
procedure TFrmMain.BtnFrm2Click(Sender: TObject);
Var
F2: TForm1;
begin
  F2 := TForm1.Create(Self);
  F2.Parametro := 'Soy el Form 2';
  F2.Caption:='Soy el Form 2';  //esto me lo muestra despues del ShowMessaje en el create dl Form
  F2.Show;
 F2.Free;
end;

Y en el create del form hago esto para ver el parametro

Código Delphi [-]
 public
  Var
  Parametro:String;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Parametro= '+Parametro ); //No me muestra nada
with TIniFile.Create( allusers+'opciones.ini') do
   try
   Pc:= (ReadString(Parametro,'Parametro','Parametro_De_Form'));
 finally
     Free;
     end;


end;

Tambien e probado poniendolo en el evento OnShow y tampoco me muestra el parametro!!!
Saludos
Responder Con Cita