Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Dónde poner está declaración (https://www.clubdelphi.com/foros/showthread.php?t=20703)

lucasarts_18 22-04-2005 19:12:11

Dónde poner ésta declaración
 
Hola a todos:

Donde debo poner esta declaración para que la puedan usar otros procedimientos

Código Delphi [-]
 
procedure TFrmPowerM.FormShow(Sender: TObject);
var
varform:TFrmArchivos;
begin
varform := TFrmArchivos.Create(self);
varform.PosicionForm(Self.Left + Self.Width, Self.Top);
try
varform.Show;
finally
//varform.Free;
FrmPowerM.SetFocus;
end;
end;

Ésta instrucción necesito usarla en otra parte

varform.PosicionForm(Self.Left + Self.Width, Self.Top);
por lo tanto el varform:TFrmArchivos;
debe ser declarado en otro lugar, intenté declaralo público pero no resulto.
Alguien sabe ?

Atte Aarón García.

marcoszorrilla 22-04-2005 19:16:41

Aquí tienes un ejemplo:
Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls;
   Procedure hola();
 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
 
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 hola();
 end;
 
 Procedure hola();
 begin
 ShowMessage('Hola');
 end;
 
 end.

Un Saludo.

lucasarts_18 23-04-2005 06:18:22

Hola marcoszorrila:

Necesito declarar ésto varform:TFrmArchivos;
en algún lugar que me permita que cualquier Procedimiento puedo utilizar varform.
Intenté con lo que mencionas, pero no me sirve ya que estás declarando un procedimiento y no una variable.

Saludos.
Aarón.

marcoszorrilla 23-04-2005 13:13:37

Lo mismo que he declarado un procedimiento en la sección Interface, puedo declarar una variable.

Un Saludo.

Lepe 23-04-2005 13:22:23

En ese caso, file --> new --> unit (guardar como uGlobal, por ejemplo)

Allí declaras la variable, y en cada form que necesites usarlo, añades al uses la unidad uGlobal.

Un saludo

lucasarts_18 24-04-2005 21:40:35

Gracias por todo amigos :p

Saludos.
Aarón.


La franja horaria es GMT +2. Ahora son las 17:28:49.

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