Search the Community
Showing results for tags 'showmessage;'.
Found 1 result
-
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.
