CallBack in Prompt Dialog

[Edson Marcelo]

Hello Guys, I would like to know if it is possible to do this:

when calling the function TFuncoes.Prompt, even with the EnableSynchronousOperations property equal to true, the execution is passing to the last line of the function.

Sorry for my ignorance, but am I doing something wrong?

this is my function:

class function TFuncoes.Prompt (txt: string): string;
var
    return: string;
begin
    return: = '';
    uniGUIDialogs.Prompt (txt, '', mtInformation, mbOKCancel,
       procedure (Sender: TComponent; AResult: integer; AText: string)
       begin
          if AResult = mrOK then
          begin
             return: = AText;
          end;
       end);

    Result: = return;
end;

[风吹小机机]

This is called asynchronously