preciso fazer uma opcao com messagedlg
tipo
voce e casado: se sim executa uma procedure se nao for executa outra procedure, mas ai ele nao executa corretamente,
fiz assim
no botaoonclick
var
vbcasado:booelan;
begin
vbcasado:=false;
MessageDlg('Vc é Casado?', mtConfirmation, mbYesNo,
procedure(Sender: TComponent; Res: Integer)
begin
case Res of
mrYes : vbcasado :=true ;
mrNo : vbcasado:=false;
end;
end
);
if vbcasado then
casado
else
solteiro;
end;
O problema e que ele executa como false, depois que ele pergunta, ou seja, ele nao para para esperar a resposta e depois dar continuidade.
Alguem sabe como resolver isso.