08-05-2020, 11:31 AM
(This post was last modified: 08-05-2020, 12:55 PM by Jose Nilton Pace.)
I am trying to call a routine that works like windows' MessageDlg. My call to showMsg does not show modal window.
Code:
procedure TIWUserSession.WindowDoOnAsyncClick(Sender: TObject; EventParams: TStringList);
var
BtnCaption: string;
begin
if ModalWin.ButtonIndex >= 0 then begin
BtnCaption := ModalWin.Buttons[ModalWin.ButtonIndex-1];
// First ButtonIndex is 1, not 0
BtnCaption := StringReplace(BtnCaption, '&', '', [rfReplaceAll]);
WebApplication.ShowMessage('You clicked on button: ' + BtnCaption);
end;
end;
Code:
procedure TIWUserSession.ShowRegion(const ATitle: string; ARegion: TIWRegion); // this routine is executed
begin
with UserSession.ModalWin do begin
Reset;
Buttons.CommaText := '&OK,&Cancel';
Title := ATitle;
ContentElement := ARegion;
OnAsyncClick := WindowDoOnAsyncClick;
Show;
end;
end;
Code:
procedure showMsg;
ShowYNFormw := TShowYNForm.Create(WebApplication);
UserSession.ShowRegion('test',ShowYNFormw IWRegion1);