TRxSwitch, não muda o desenho, onde errei?
15/12/2003
0
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;
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;
Wgm8
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)