I keep getting this error when i try to run this:
[Runtime Error] : Exception: Cannot make a visible window modal in line 84 in script
SCAR Code:
Program MyScript;
{.include SRL/SRL.scar}
var
frmDesign : TForm;
Ok : TButton;
Edit1 : TEdit;
Username : TEdit;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 277;
frmDesign.Height := 396;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 96;
Ok := TButton.Create(frmDesign);
Ok.Parent := frmDesign;
Ok.Left := 96;
Ok.Top := 192;
Ok.Width := 75;
Ok.Height := 25;
Ok.Caption := 'Ok';
Ok.Font.Color := clWindowText;
Ok.Font.Height := -11;
Ok.Font.Name := 'Georgia';
Ok.Font.Style := [];
Ok.ParentFont := False;
Ok.TabOrder := 9;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 72;
Edit1.Top := 80;
Edit1.Width := 121;
Edit1.Height := 22;
Edit1.Font.Color := clWindowText;
Edit1.Font.Height := -11;
Edit1.Font.Name := 'Georgia';
Edit1.Font.Style := [];
Edit1.ParentFont := False;
Edit1.TabOrder := 10;
Edit1.Text := 'Password';
Username := TEdit.Create(frmDesign);
Username.Parent := frmDesign;
Username.Left := 72;
Username.Top := 40;
Username.Width := 121;
Username.Height := 22;
Username.Font.Color := clWindowText;
Username.Font.Height := -11;
Username.Font.Name := 'Georgia';
Username.Font.Style := [];
Username.ParentFont := False;
Username.TabOrder := 11;
Username.Text := 'Username';
end;
Procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
Procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
Procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v); //this line
end;
begin
SetupSRL;
SafeInitForm;
SafeShowFormModal;
end.