Ajuda com esse código - MessageDlg

Delphi

17/03/2006

if MessageDlg(´Você escolheu ´ + vRadio + ´, deseja continuar?´, mtWarning, [mbYes,mbNo], 0) = mrNo then
       begin
         Exit;
       end
     else
       begin
        { faz alguma coisa }
         Close;
       end;


Tenho esse código, ele está funcionando perfeitamente, porém se o usuário clicar no NÃO, a tela (onde chamo o MessageDlg) é fechada, mas eu gostaria que ela continuasse aberta... como posso fazer isso??? No lugar do [b:a308b8a352]Exit[/b:a308b8a352] já tentei o [b:a308b8a352]Abort[/b:a308b8a352] mas ele tbm fecha a tela...


desde já agradeço a ajuda....


Facc

Facc

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

17/03/2006

Tente então criar uma variável de controle, tipo:

var
    continuar: boolean;
begin
continuar:=True;
if MessageDlg(´Você escolheu ´ + vRadio + ´, deseja continuar?´, mtWarning, [mbYes,mbNo], 0) = mrNo then 
    begin 
    continuar:=False;
    end;
if continuar then
    begin 
    { faz alguma coisa } 
    Close; 
    end;
end;



GOSTEI 0
Facc

Facc

17/03/2006

[quote:a15fe0bae3=´/]/]@t´]Tente então criar uma variável de controle, tipo:

var
    continuar: boolean;
begin
continuar:=True;
if MessageDlg(´Você escolheu ´ + vRadio + ´, deseja continuar?´, mtWarning, [mbYes,mbNo], 0) = mrNo then 
    begin 
    continuar:=False;
    end;
if continuar then
    begin 
    { faz alguma coisa } 
    Close; 
    end;
end;
[/quote:a15fe0bae3]


Criei essa variavel, porém a tela ainda continua sendo fechada...


GOSTEI 0
Marcio.theis

Marcio.theis

17/03/2006

Então vc deve de ter algum comando ou propriedade setada para que isto aconteça....


GOSTEI 0
Facc

Facc

17/03/2006

[quote:ba3972ee96=´/]/]@t´]Então vc deve de ter algum comando ou propriedade setada para que isto aconteça....[/quote:ba3972ee96]


Realmente era isso... Era o Modalresult do BitButton que estava como mrOk...


Valeu pela ajuda...


GOSTEI 0
POSTAR