Solicitação de confirmação
:?:
Num Botão (usado para confirmar a exclusão de um determinado arquivo no Disco), preciso que ao precioná-lo, caso exista o arquivo, quero ainda solicitar uma confirmção para a exclusão. Tipo Confirma mesmo a Exclusão do Arquivo ?.
Caso seja respondido Sim (tratar a confirmção), em caso não executar outros procedimentos.
Obrigado
Neto
Num Botão (usado para confirmar a exclusão de um determinado arquivo no Disco), preciso que ao precioná-lo, caso exista o arquivo, quero ainda solicitar uma confirmção para a exclusão. Tipo Confirma mesmo a Exclusão do Arquivo ?.
Caso seja respondido Sim (tratar a confirmção), em caso não executar outros procedimentos.
Obrigado
Neto
Anonymous
Curtidas 0
Respostas
Bruno
07/03/2003
vc pode usar isso nãosei se vai funcionar pois não testei
if fileexist (´c:\(o arquivo que vc quer)´) then
begin
If Application.MessageBox(´Deseja realmente excluir?´,´Atenção´,52)=7 then
Exit;
(aqui depois do exit vc coloca as coisas que quer que aconteçacaso ele quiser ralmente excluir)
end;
if fileexist (´c:\(o arquivo que vc quer)´) then
begin
If Application.MessageBox(´Deseja realmente excluir?´,´Atenção´,52)=7 then
Exit;
(aqui depois do exit vc coloca as coisas que quer que aconteçacaso ele quiser ralmente excluir)
end;
GOSTEI 0
Nildo
07/03/2003
Utilize estes comandos:
if MessageDlg(´Confirma exclusão ?´, mtConfirmation, [mbYes, mbNo],0) = mrYes then
if FileExists(´c:\teste.txt´) then
deleteFile(´c:\teste.txt´);
if MessageDlg(´Confirma exclusão ?´, mtConfirmation, [mbYes, mbNo],0) = mrYes then
if FileExists(´c:\teste.txt´) then
deleteFile(´c:\teste.txt´);
GOSTEI 0
Fenix
07/03/2003
Função MessageBox
Da uma olhada no site do cuble delphi, na opção PRIMEIROS PASSOS, no artigo ->Exibindo Mensagens no Delphi la tem os parametros que vc precisa.
Estou colocando aq tb um exemplo.
Altere a propriedade enabled do componente edit para false. No evento Onclick do componente button escreva o seguinte código:
if messagebox(0,´Você deseja habilitar o edit?´,´Pergunta´,mb_yesno+mb_iconquestion)=6 then
begin
edit1.Enabled:=true
end
else
edit1.Text:=´ClubeDelphi´
A mensagem exibirá o ícone de pergunta e os botões Sim e Não. Na linha:
if messagebox(0,´Você deseja habilitar o edit?´,´Pergunta´,mb_yesno+mb_iconquestion)=6 then
Verificamos se o botão ´Sim´ foi clicado (=6). Se for, o edit será habilitado pois a sua propriedade enabled receberá o valor ´true´. Notem que o parâmetro número recebeu valor nulo(0), assim a janela não será modal. Na linha:
edit1.Text:=´ClubeDelphi´
Se o botão ´Não´ for clicado, o edit terá sua propriedade text alterada
Isto resolve seu problema...
Mas verifica la no site para vc entender melhor....
Da uma olhada no site do cuble delphi, na opção PRIMEIROS PASSOS, no artigo ->Exibindo Mensagens no Delphi la tem os parametros que vc precisa.
Estou colocando aq tb um exemplo.
Altere a propriedade enabled do componente edit para false. No evento Onclick do componente button escreva o seguinte código:
if messagebox(0,´Você deseja habilitar o edit?´,´Pergunta´,mb_yesno+mb_iconquestion)=6 then
begin
edit1.Enabled:=true
end
else
edit1.Text:=´ClubeDelphi´
A mensagem exibirá o ícone de pergunta e os botões Sim e Não. Na linha:
if messagebox(0,´Você deseja habilitar o edit?´,´Pergunta´,mb_yesno+mb_iconquestion)=6 then
Verificamos se o botão ´Sim´ foi clicado (=6). Se for, o edit será habilitado pois a sua propriedade enabled receberá o valor ´true´. Notem que o parâmetro número recebeu valor nulo(0), assim a janela não será modal. Na linha:
edit1.Text:=´ClubeDelphi´
Se o botão ´Não´ for clicado, o edit terá sua propriedade text alterada
Isto resolve seu problema...
Mas verifica la no site para vc entender melhor....
GOSTEI 0