lincoln.mac
Novato
Registrado: Sexta-Feira, 16 de Fevereiro de 2018
Mensagens: 22
|
 Enviada: Seg Abr 09, 2018 10:58 am Assunto: Como não exibir mensagem? Cancelar msg do componente |
 |
|
Bom dia amigos!
Tenho um componente chamado ZIP MASTER...
Tenho uma lista de arquivos para extrair...
Arquivo01.zip
Arquivo02.zip
Arquivo03.zip
Eu uso o seguinte comando:
procedure TForm1.btnDecompressClick(Sender: TObject);
var
slFiles: TStringList;
begin
zm.ZipFileName := ExtractFilePath(Application.ExeName) +
NomeDoArquivo;
zm.ExtrBaseDir := CaminhoDoArquivo;
zm.Active := True;
zm.Extract;
zm.Active := false;
end;
Em outra parte do Código, eu coloco esta sequência:
NomeDoArquivo := Arquivo01.zip;
btnDecompress.click;
NomeDoArquivo := Arquivo02.zip;
btnDecompress.click;
NomeDoArquivo := Arquivo03.zip;
btnDecompress.click;
Agora que vem a dúvida:
Quando mando extrair só 1 arquivo, funciona normal sem aparecer msg nenhuma... Mas quando manda extrair 1 por 1 desta lista toda... ele funciona perfeitamente, porém aparece esta mensagem: NOTHING TO DO (em forma de showmessage) .......... MAS FUNCIONA!
Eu queria saber se mudo alguma coisa no meu código, OUUUUU .... queria saber se no evento ONMESSAGE do componente eu possa colocar um NIL... sei lá.. qualquer coisa que impeça de mostrar esta mensagem, pois está funcionando normalmente!
Valeu galera!! Um abraço!!!! |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
