TRxSwitch, não muda o desenho, onde errei?

15/12/2003

1

Quando peço pra conectar, tudo bem ele muda o desenho pra luz acesa, agora quando peço para desconectar ele mantem o mesmo desenho, onde estou errando?

procedure TFormPrincipal.Conectar1Click(Sender: TObject);
begin
FormEnviar.IdSMTP1.Connect;
if FormEnviar.IdSMTP1.Connected then
begin
Label1.Enabled := True;
BtOnOff.GlyphOff := BtOnOff.GlyphOn;
end;
end;

procedure TFormPrincipal.Desconectar1Click(Sender: TObject);
begin
if FormEnviar.IdSMTP1.Connected then
begin
FormEnviar.IdSMTP1.Disconnect;
Label1.Enabled := False;
BtOnOff.GlyphOn := BtOnOff.GlyphOff;
end;
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira