Just any script? or just the script that goes with this? if its a single script, then just include it at the top of the script and turn the main procedure in that script into a procedure and call it from this one. If its just a random script, then since there is no eval, i doubt you can really do it
Also - (shortened it a bit and made it less crashy if you do anything bad when coding)
though if thats the only point of your form, then its kind of silly to have a form at all.
SCAR Code:
var
frmDesign: TForm;
Button1: TButton;
Procedure ButtonClick(Sender: TObject);
Begin
frmDesign.ModalResult:= mrOk;
End;
procedure InitForm;
begin
{ The TForm; part }
frmDesign := CreateForm; // This will create your form. MUST be called first.
frmDesign.SetBounds(100,100,500,500);
frmDesign.Caption := 'ChopNDrop!'; // The name of your form? This will be shown in the upper left balk
frmDesign.Color := ClWhite; // The background color of your form ("ClWhite", "ClBlack" ect, or just an color like: 123456)
frmDesign.Font.Color := ClBlack; // The color of the text (Tlabels) when you have those
frmDesign.Font.Name := 'Comic Sans MS'; // The name of the font you want the Tlabels to be
{ The TButton; part }
Button1 := TButton.Create(FrmDesign); // This will create the button. Must be called.
Button1.Parent := FrmDesign; // The parent is very important. Without the parrent set to the formname the button won't be visible
Button1.SetBounds(10,425,100,30);
Button1.Caption := 'Chop it!'; // The text on the button!
Button1.OnClick := @ButtonClick;
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
var v: TVariantArray;
begin
try
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
except
Writeln(ExceptionToString(ExceptionType, ExceptionParam));
end;
end.
Simba isnt going to be the answer for everything. Just because it can run more than 1 script at a time, means nothing in this case really unless you can eval in Simba. AFAIK