Sorry about my English!!
Edition 1.0.0 build 1421.
See the code sample below ...
procedure TfTeste.DCallBack4 (Sender: TComponent; Res: Integer);
begin
ModalResult := Res;
end;
procedure TfTeste.APesquisarExecute (Sender: TObject);
begin
MessageDlg ('mbYesNo', mtConfirmation, mbYesNo, DCallBack4); // i need him to wait for the message to reply before proceding...
if ModalResult = 1 then
xxxxx
else
yyyyy;
end;
how to make???