Dónde poner está declaración

[lucasarts_18]

Hola a todos:

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


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]

Aquí tienes un ejemplo:

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]

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]

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

Un Saludo.

[Lepe]

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]

Gracias por todo amigos :p

Saludos.
Aarón.