Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Captión de un Formulario auxiliar. (https://www.clubdelphi.com/foros/showthread.php?t=19308)

bbjb 10-03-2005 11:21:28

Captión de un Formulario auxiliar.
 
Buenas,

Quiero modificar el caption de un formulario auxiliar una vez este trabajando con él en el programa, por ejemplo;
si pulso un botón que muestre un mensaje y si pulso otro que lo cambie e indique otra cosa.

Hasta aquí facilón, facilón.... el problema es que asigno al formulario el mensaje que quiero que muestre y pasa olimpicamente de mi.

Faux.caption := 'Hola Mundo';

Qué estoy haciendo mal?, tengo que cambiar alguna propiedad del formulario???.

Gracias por vuestra atención

Neftali [Germán.Estévez] 10-03-2005 11:25:48

Pon el código completo para que lo veamos.
Lo que has escrito no está mal, pero tal vez lo estás poniendo donde no debes o cuando no debes ;).

Lo dicho, coloca el trozo con la creación del form y demás...

bbjb 10-03-2005 11:36:47

Creo el formulario auxiliar de la siguiente manera:

Código:

      f:=TFaux.create(self);
      f.showmodal;
      f.free;

y pongo la modicación del caption en el evento Oncreate del formulario auxiliar aunque he provado también en el evento Onclick de varios botones.

Necesitas más información???

vtdeleon 10-03-2005 13:14:10

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
begin
  f:=TFaux.create(self); 
  f.showmodal; 
end;
{************************************}
procedure TFaux.Button1Click(Sender: TObject);
begin
  f.caption:='Hola Mundo';
end;

bbjb 10-03-2005 13:20:50

Si lo hago de ese manera me da el siguiente error;

Código:

[Error] Faux.pas(217): Undeclared identifier: 'F'

vtdeleon 10-03-2005 15:59:08

Cita:

Empezado por bbjb
Si lo hago de ese manera me da el siguiente error;

Código:

[Error] Faux.pas(217): Undeclared identifier: 'F'

Creí que habias declarado o cambiado esa variable!!:D

Al momento de crea un formulario este viene declarado.
Si deseas cambiarlo mira esto
Código Delphi [-]
unit Unit1;
interface
uses
....
type
  TFaux = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
.......
var
  Faux: TFaux; {Aqui esta la declaracion del Formulario. Cambia "Faux: Tfaux" por "F:Tfaux" }
implementation
{$R *.dfm}
procedure TFaux.FormCreate(Sender: TObject);
begin
...............
end;
end.

Tambien debes cambiarlo en View Source, está en el Menu Project, View Source y cambia:
Código Delphi [-]
Program Project1;
uses
..
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TFaux, Faux); {Cambia "(Tfaux, Faux)" por "(Tfaux, F)"}
  Application.Run;
end.

Lo recomendable (y asi lo hago yo) es no cambiar nada de esto y en vez de usar "F" utiliza el nombre de tu formulario "Faux"
Código Delphi [-]
 begin
  Faux.caption:='Hola Mundo';
end;

Espero que te sirva;
----------------------------------------------
Saludos a todos de Rep. Dom.


La franja horaria es GMT +2. Ahora son las 17:18:57.

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