Solicitação de confirmação

07/03/2003

0

:?:
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

Anonymous

Responder

Posts

07/03/2003

Bruno

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;


Responder

07/03/2003

Nildo

Utilize estes comandos:


if MessageDlg(´Confirma exclusão ?´, mtConfirmation, [mbYes, mbNo],0) = mrYes then
if FileExists(´c:\teste.txt´) then
deleteFile(´c:\teste.txt´);


Responder

07/03/2003

Fenix

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....


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar