Cita:
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
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure ProcIndependinte(Sender:TObject);
begin
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Button1.OnClick := ProcIndependinte; <<== ERROR
Button1.OnClick := ProcClase; <<== CORRECTO
end;
procedure TForm1.ProcClase(Sender: TObject);
begin
end;