¡Hola Dudes!
Como ven este acercamiento.
Creando, por así decirlo una propiedad estatica de una clase, y asignarle su valor, que estará visible en todas las unidades (y por ende Forms) donde se requiera.
Espero el cógido sea más legible que mi explicación:
la unidad donde se almacenarán las propiedades globales, por así decirlo
Código Delphi
[-]
unit uGlobales;
interface
type
TGlobales = class
private
class function GetUsuario : string;
class procedure SetUsuario(const Value: string);
protected
public
property Usuario : string read GetUsuario write SetUsuario;
published
end;
implementation
var
FUsuario : string;
class function TGlobales.GetUsuario: string;
begin
Result := FUsuario;
end;
class procedure TGlobales.SetUsuario(const Value: string);
begin
FUsuario := Value;
end;
end.
Ahora, cuando quieras acceder al valor de la propiedad, o en su defecto asigarle un valor solo tienes que hacer lo sigiuente.
Código Delphi
[-]
implementation
uses
uGlobales;
......
procedure TForm2.btn1Click(Sender: TObject);
var
myGlobal : TGlobales;
begin
Caption := myGlobal.Usuario;
end;
......
procedure TForm1.btn1Click(Sender: TObject);
var
myGlobal : TGlobales;
begin
myGlobal.Usuario := 'Paoti';
end;
Dudas, comentarios.
Estará bien esta forma de realizarlo, digo, no lo he puesto en practica en un ambiente de producción.
Gracias.