hi,
is "Prompt" can run without call back like desktop ?
i tested it, it must using callback.
sample UniButton1Click, prompt doesnt appear
sample UniButton2Cick with callback, it's showup
ServerModule asycnrequest set true;
Version:1.90.0 build 1564
procedure TMainForm.UniButton1Click(Sender: TObject);
var
sFileNameNew, sFileName : string;
begin
if Prompt(
'Masukkan nama file yang baru' + '<br>' +
sFileName + '<BR>' +
'<br>',
sFileName,
TMsgDlgType.mtConfirmation,
mbOKCancel,
sFileNameNew,
True
) = 2 then // 1 ok, 2 cancel
Exit;
ShowMessage('show after prompt');
end;
procedure TMainForm.UniButton2Click(Sender: TObject);
var
sFileNameNew, sFileName : string;
begin
Prompt(
'Masukkan nama file yang baru' + '<br>' +
sFileName + '<BR>' +
'<br>',
sFileName,
TMsgDlgType.mtConfirmation,
mbOKCancel,
procedure (Sender: TComponent; AResult: Integer; AText: string)
begin
if AResult = mrOK then
begin
ShowMessageN(AText);
end;
end
);
end;