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
Posts
07/03/2003
Bruno
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;
07/03/2003
Nildo
if MessageDlg(´Confirma exclusão ?´, mtConfirmation, [mbYes, mbNo],0) = mrYes then
if FileExists(´c:\teste.txt´) then
deleteFile(´c:\teste.txt´);
07/03/2003
Fenix
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....
Clique aqui para fazer login e interagir na Comunidade :)