Well, I'm working on my very first form, but I keep getting this error.......
[Runtime Error] : Exception: Cannot make a visible window modal in line 87 in script.
And this is my script.
SCAR Code:
program DudesAutoTalker;
{.include SRL/SRL.scar}
var
frmDesign : TForm;
Label1 : TLabel;
Edit1 : TEdit;
Button1 : TButton;
Procedure AutoTalker(sender : tobject);
begin
repeat
TypeSend(Edit1.Text);
until(False);
end;
Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 342;
frmDesign.Height := 125;
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;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 51;
Label1.Top := 4;
Label1.Width := 230;
Label1.Height := 32;
Label1.Caption := 'Dudes Auto Talker!';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -30;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 3;
Edit1.Top := 37;
Edit1.Width := 330;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := 'What Do You Want To Say?';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 3;
Button1.Top := 61;
Button1.Width := 330;
Button1.Height := 36;
Button1.Caption := 'Start Talking!';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -20;
Button1.Font.Name := 'MS Sans Serif';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.TabOrder := 9;
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);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.