propiedad caption

[esocrates]

Empezado por lucas05

Hola ecfisa, gracias por tu ayuda.

La primera opción (cuando no tengo creado el form) funciona bien.
Pero en mi caso ya tengo creado el form y cuando uso la segunda opción no funciona.
Este es el código que pongo en el button del form1.
Form2:=TForm2.Create(self);
Form2.Showmodal;
Form2.Caption:='Personal No Docente';

(En el uses del form1 agrego el Unit2)

Cuando lo compilo no aparece ningun error y cuando hago click en el button durante el tiempo de ejecución abre el form2 pero no muestra los cambios en el titulo del form2.

Espero que puedas decirme donde está el error.

Gracias por tu atención y saludos.

Hola lucas05;
Probá de este modo. Antes de dar la directiva ShowModal:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=Tform2.Create(self);
Form2.Caption:='Personal No Docente';
Form2.ShowModal;

end;

Un saludo

[lucas05]

Hola esocrates, gracias por tu ayuda. Tu solución funciono bien.

Saludos.

[ecfisa]

Hola.

Si, es como te puso esocrates.

Si te fijas en el primer código que postee:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 with TForm2.Create(nil) do
  try
    Caption:= 'LO QUE QUIERAS QUE APAREZCA EN EL TITULO';
    ShowModal;
  finally
    Free;
  end;
end;

Verás que la asignación al caption está antes de mostrarlo.
Eso sucede por que cuando mostras con ShowModal, el form creado adquiere el foco y no lo libera hasta que se cierre. Por lo tanto las líneas que hacen referencia a Form2 despues de ShowModal se ejecutarán luego de que se cierre.

Aprovecho el post para rectificar un error y evitar posibles confuciones a quien lea.
El siguiente código no funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Caption:= 'LO QUE QUIERAS QUE APAREZCA EN EL TITULO';
 end;

Errare humanum est...

Saludos.