Cambiar el Caption de un Form en tiempo de ejecucion

[kikodelphi]

Intento cambiarle el Caption a un form en tiempo de ejecución y no me lo permite.

ComprobFactura.Caption := 'Comprobante Factura' ;

Alguien sabe a que se debe ???
gracias.

[marcoszorrilla]

Y donde pones ese código, porque en un principìo no se advierte ningún error, debiera de funcionar correctamente.

Un Saludo.

[Chente(rMan)]

me imagino que ComprobFactura es el nombre de tu forma, y si despues de eso haces

Código Delphi [-]
  ComprobFactura.Caption := 'Comprobante Factura' ;
  Repaint;

Saludos.

Vicente López.

[kikodelphi]

Hola


Gracias por responder a ambos, el problema fue solucionado al no mencionar el nombre del Form.
Está en el OnActivate del mismo Form.
se cambió por esta notacion:

Caption := 'Comprobante Factura'

Me llama la atención que si menciono el mismo Form donde estoy haciendo referencia no funciona.

Gracias nuevamente.

[flista85]

me pasa algo parecido: tengo un form que reutilizo y le cambio el caption dependiendo de la opcion del menu que se haya seleccionado,pero igual no funciona, mejor dicho la primera vez que llamo al form le coloca el caption pero para las llamadas siguientes no lo hace, he corrido el codigo linea a linea y pasa por la sentencia pero nada no cambia el caption lo deja como la 1ra vez que se llamo a la ventana que puedo hacer??? es algo al parecer muy sencillo pero no lo hace no entiendo que pasa... pero ya intente probar lo que hiciste en el evento OnActivate pero nada incluso aplique refresh y repaint y no funciono agradeceria su colaboracion. A continuacion les dejo el codigo


procedure TForm3.FormShow(Sender: TObject);
begin
case opmenu of
0:form3.Caption:='Directorios';
1:form3.Caption:='Choferes';
2:form3.Caption:='Subcontratados';
3:form3.Caption:='Unidades';
end;
//refresh;
//form3.Repaint;
end;

[marcoszorrilla]

Ponlo en el evento onActivate del Form y verás como te funciona.

Código Delphi [-]
procedure TfrConClientes.FormActivate(Sender: TObject);
var
cSql1,cSql2,cSql3:String;
begin
frConClientes.Caption:='Consulta de '+cListado;
DmClientes.IBDtsCli.Close;
DmClientes.IBDtsCli.SelectSQL.Clear;
cSql1:='Select * from Alumnos';
csql3:=' Order by Apellidos,Nombre';
....

Un Saludo.