Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Crear Form y pasarle parametro (https://www.clubdelphi.com/foros/showthread.php?t=84930)

n03l 29-12-2013 17:04:49

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

n03l 29-12-2013 18:37:22

Bueno ya lo solucione aqui estaba la solucion que dio [gatosoft]
http://www.clubdelphi.com/foros/showthread.php?t=1151

saludos


La franja horaria es GMT +2. Ahora son las 13:31:15.

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