Hey I just Made a Form I'll Show it, When I click start to See if Form loads it loads but then Scar Crashes everytime!!! Here's The Form
SCAR Code:
program New;
var
frmDesign : TForm;
UserLabel : TLabel;
PassLabel : TLabel;
UsernameLabel : TEdit;
PasswordEdit : TEdit;
StartScriptButton : TButton;
Username, Password : String;
procedure StartClick(sender: TObject);
begin
Writeln('Hey Jagex Abuser!');
Username := UsernameLabel.Text;
Password := PasswordEdit.Text;
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
frmDesign.ModalResult:= mrOk; // Closes the form
end;
Procedure Initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
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 := False;
frmDesign.PixelsPerInch := 96;
UserLabel := TLabel.Create(frmDesign);
UserLabel.Parent := frmDesign;
UserLabel.Left := 136;
UserLabel.Top := 96;
UserLabel.Width := 48;
UserLabel.Height := 13;
UserLabel.Caption := 'Username';
PassLabel := TLabel.Create(frmDesign);
PassLabel.Parent := frmDesign;
PassLabel.Left := 136;
PassLabel.Top := 128;
PassLabel.Width := 46;
PassLabel.Height := 13;
PassLabel.Caption := 'Password';
UsernameLabel := TEdit.Create(frmDesign);
UsernameLabel.Parent := frmDesign;
UsernameLabel.Left := 200;
UsernameLabel.Top := 96;
UsernameLabel.Width := 121;
UsernameLabel.Height := 21;
UsernameLabel.TabOrder := 8;
UsernameLabel.Text := 'UsernameLabel';
PasswordEdit := TEdit.Create(frmDesign);
PasswordEdit.Parent := frmDesign;
PasswordEdit.Left := 200;
PasswordEdit.Top := 128;
PasswordEdit.Width := 121;
PasswordEdit.Height := 21;
PasswordEdit.TabOrder := 9;
PasswordEdit.Text := 'PasswordEdit';
StartScriptButton := TButton.Create(frmDesign);
StartScriptButton.Parent := frmDesign;
StartScriptButton.Left := 200;
StartScriptButton.Top := 320;
StartScriptButton.Width := 75;
StartScriptButton.Height := 25;
StartScriptButton.Caption := 'Start Script';
StartScriptButton.TabOrder := 10;
StartScriptButton.OnClick := @StartClick;
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;
ShowFormModal;
end.
So What's Wrong???? =(