Metodos dentro de una Unit

[Neftali [Germán.Estévez]]

Empezado por josepicd

Tengo un Tform1 con un TLabel que en su caption debera poner "Connectado" o "Desconectado"
En otro lado tengo una Unit con un procedimiento tal cual
¿La pregunta es como asigno el onconnect y el ondisconnect?

Me da la impresión de que esos métodos tienen que formar parte de la clase, ya que estás intentardo asignarlos a los eventos del componente.
Para que me entiendas; Si miras este código que hay debajo, y de las 2 asignaciones que se hacen al evento OnClick, sólo una es correcta.

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormShow(Sender: TObject);
  private
    procedure ProcClase(Sender:TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ProcIndependinte(Sender:TObject);
begin
  // procedimiento independiente
end;

procedure TForm1.FormShow(Sender: TObject);
begin

  Button1.OnClick := ProcIndependinte;  <<== ERROR
  Button1.OnClick := ProcClase;         <<== CORRECTO

end;

procedure TForm1.ProcClase(Sender: TObject);
begin
  // procedimiento de la clase
end;