Perdonad lo mal que me explico, pero no se como expresarme.
A ver si alguien me puede orientar para hacerlo de la mejor forma posible
Ya se que se puede unir todo dentro del form, y no es exactamente este caso, es solo un ejemplo simplificado. La parte de comunicacion debe ir en una unit independiente porque esa comunicacion aqui puede ser por socket, en otro caso puede ser por 232, etc y cambiando la unit de comunicacion deberia seguir todo funcionando
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?
Código Delphi
[-]
Unit Srv;
procedure createsrv;
begin
srv := TServerSocket.Create( nil);
srv.Port := 1000;
srv.Active := true;
srv.OnClientConnect := doconnect;
srv.OnClientDisconnect := dodisconnect;
end;
procedure doconnect;
begin
lconnect := true;
end;
procedure dodisconnect;
begin
lconnect := false;
end;
Unit TForm
FormCreate
Begin
.....
createsrv;
.....
End;
Procedure OnTimer
begin
if lconnect then label1.caption := 'conectado'
else label1.caption := 'desconectado';
end;