Fórum Ajuda com esse código - MessageDlg #316379
17/03/2006
0
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
Curtir tópico
+ 0Posts
17/03/2006
Marcio.theis
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
17/03/2006
Facc
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;Criei essa variavel, porém a tela ainda continua sendo fechada...
Gostei + 0
17/03/2006
Marcio.theis
Gostei + 0
17/03/2006
Facc
Realmente era isso... Era o Modalresult do BitButton que estava como mrOk...
Valeu pela ajuda...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)