Cita:
Empezado por Xianto
...En este ejemplo la clase es un TForm) lo que quiero es definir mi clase con alguna funcion y variables Publicas o Globales para ver de todos lados
|
Se pueden definir métodos y propiedades de la clase en las partes
public y
published (en realidad la parte published sería para eventos y propiedades que puedan aparecer en el explorador de objetos -en caso de clases que lo utilicen-) de la clase (
procA); Luego a parte si tienes una función que quieres definir en esa Unit que es global y que no pertenece a esa clase puedes definirla fuera de la clase (
procC); En tu ejemplo:
Código Delphi
[-]
type
TFormA = class(TForm)
procedure FormActivate(Sender: TObject);
private
public
procedure procA();
end;
var
Pepa: TPepa;
procedure procC();
implementation
{$R *.dfm}
procedure TPepa.FormActivate(Sender: TObject);
begin
a := b;
end;
end.
Para utilizar el método published harías algo similar a ésto:
Código Delphi
[-]
uses
UnitForm2;
...
var
F1:TFormA;
begin
F1 := TFormA.Create(Application);
F1.procA;
...
procC();
...