here is my form:
SCAR Code:
Program MyScript;
{.include SRL/SRL.scar}
{If (CheckBox1.checked) or (CheckBox2.checked) then}
var
frmDesign : TForm;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label3 : TLabel;
Edit1 : TEdit;
AuthPassword : TEdit;
{Rememberme : TCheckBox;}
Login : TButton;
GroupBox2 : TGroupBox;
WhatsGoingOn : TMemo;
YourAuthPass : string;
YourAuthUser : string;
PlayerForm : TForm;
GroupBox3 : TGroupBox;
UserNameLabel : TLabel;
Label2 : TLabel;
Label5 : TLabel;
UserNameEdit : TEdit;
Passwordedit : TEdit;
ActiveComboBox : TComboBox;
GroupBox4 : TGroupBox;
Username2 : TLabel;
Password2 : TLabel;
Active2 : TLabel;
Edit9 : TEdit;
Passwordbox2 : TEdit;
True2 : TComboBox;
Usernamebox2 : TEdit;
PageControl : TPageControl;
TabPages : array [0..1] of TTabSheet;
i : integer;
procedure PlayerFormStuff;
begin
PlayerForm := CreateForm;
PlayerForm.Left := 250;
PlayerForm.Top := 114;
PlayerForm.Width := 465;
PlayerForm.Height := 241;
PlayerForm.Caption := 'Player Setup';
PlayerForm.Color := clBtnFace;
PlayerForm.Font.Color := clWindowText;
PlayerForm.Font.Height := -11;
PlayerForm.Font.Name := 'MS Sans Serif';
PlayerForm.Font.Style := [];
PlayerForm.Visible := True;
PlayerForm.PixelsPerInch := 96;
GroupBox3 := TGroupBox.Create(PlayerForm);
GroupBox3.Parent := PlayerForm;
GroupBox3.Left := 16;
GroupBox3.Top := 16;
GroupBox3.Width := 201;
GroupBox3.Height := 177;
GroupBox3.Caption := 'Player One';
GroupBox3.TabOrder := 0;
UserNameLabel := TLabel.Create(GroupBox1);
UserNameLabel.Parent := GroupBox1;
UserNameLabel.Left := 20;
UserNameLabel.Top := 48;
UserNameLabel.Width := 53;
UserNameLabel.Height := 13;
UserNameLabel.Caption := 'User Name';
UserNameLabel.Font.Color := clWindowText;
UserNameLabel.Font.Height := -11;
UserNameLabel.Font.Name := 'MS Sans Serif';
UserNameLabel.Font.Style := [];
UserNameLabel.ParentFont := False;
Label2 := TLabel.Create(GroupBox1);
Label2.Parent := GroupBox1;
Label2.Left := 20;
Label2.Top := 88;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label5 := TLabel.Create(GroupBox1);
Label5.Parent := GroupBox1;
Label5.Left := 20;
Label5.Top := 128;
Label5.Width := 36;
Label5.Height := 13;
Label5.Caption := 'Active?';
UserNameEdit := TEdit.Create(GroupBox1);
UserNameEdit.Parent := GroupBox1;
UserNameEdit.Left := 88;
UserNameEdit.Top := 40;
UserNameEdit.Width := 97;
UserNameEdit.Height := 21;
UserNameEdit.TabOrder := 0;
Passwordedit := TEdit.Create(GroupBox1);
Passwordedit.Parent := GroupBox1;
Passwordedit.Left := 88;
Passwordedit.Top := 80;
Passwordedit.Width := 97;
Passwordedit.Height := 21;
Passwordedit.TabOrder := 1;
ActiveComboBox := TComboBox.Create(GroupBox1);
ActiveComboBox.Parent := GroupBox1;
ActiveComboBox.Left := 88;
ActiveComboBox.Top := 120;
ActiveComboBox.Width := 97;
ActiveComboBox.Height := 21;
ActiveComboBox.ItemHeight := 13;
ActiveComboBox.TabOrder := 2;
ActiveComboBox.Text := 'True';
GroupBox4 := TGroupBox.Create(PlayerForm);
GroupBox4.Parent := PlayerForm;
GroupBox4.Left := 240;
GroupBox4.Top := 16;
GroupBox4.Width := 201;
GroupBox4.Height := 177;
GroupBox4.Caption := 'Player Two';
GroupBox4.TabOrder := 1;
Username2 := TLabel.Create(GroupBox2);
Username2.Parent := GroupBox2;
Username2.Left := 16;
Username2.Top := 48;
Username2.Width := 53;
Username2.Height := 13;
Username2.Caption := 'User Name';
Password2 := TLabel.Create(GroupBox2);
Password2.Parent := GroupBox2;
Password2.Left := 16;
Password2.Top := 88;
Password2.Width := 46;
Password2.Height := 13;
Password2.Caption := 'Password';
Active2 := TLabel.Create(GroupBox2);
Active2.Parent := GroupBox2;
Active2.Left := 16;
Active2.Top := 128;
Active2.Width := 36;
Active2.Height := 13;
Active2.Caption := 'Active?';
Edit9 := TEdit.Create(GroupBox2);
Edit9.Parent := GroupBox2;
Edit9.Left := 96;
Edit9.Top := 32;
Edit9.Width := 1;
Edit9.Height := 21;
Edit9.TabOrder := 0;
Edit9.Text := 'Edit1';
Passwordbox2 := TEdit.Create(GroupBox2);
Passwordbox2.Parent := GroupBox2;
Passwordbox2.Left := 88;
Passwordbox2.Top := 80;
Passwordbox2.Width := 97;
Passwordbox2.Height := 21;
Passwordbox2.TabOrder := 1;
True2 := TComboBox.Create(GroupBox2);
True2.Parent := GroupBox2;
True2.Left := 88;
True2.Top := 120;
True2.Width := 81;
True2.Height := 21;
True2.ItemHeight := 13;
True2.TabOrder := 2;
True2.Text := 'True';
Usernamebox2 := TEdit.Create(GroupBox2);
Usernamebox2.Parent := GroupBox2;
Usernamebox2.Left := 88;
Usernamebox2.Top := 40;
Usernamebox2.Width := 97;
Usernamebox2.Height := 21;
Usernamebox2.TabOrder := 3;
end;
procedure ShowPlayerForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('PlayerFormStuff', v);
end;
procedure ShowPlayerformModal;
begin
PlayerForm.ShowModal;
end;
procedure SafeShowModalPlayerForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowPlayerformModal', v);
end;
function Authenticate: Boolean; Forward;
procedure StartClick(sender: TObject);
begin
YourAuthUser := (Edit1.Text);
YourAuthPass := (AuthPassword.Text);
if Authenticate then
frmDesign.ModalResult:= mrOk;
FreeForm(frmDesign);
end;
procedure FormStuff;
begin
frmDesign := CreateForm;
frmDesign.Left := 259;
frmDesign.Top := 128;
frmDesign.Width := 449;
frmDesign.Height := 297;
frmDesign.Caption := 'Skilld Magic Tree Chopper';
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;
PageControl := TPageControl.Create(frmDesign);
PageControl.Parent := frmDesign;
PageControl.Align := alClient;
for i := 0 to 1 do // Amount of Tabs
begin
TabPages[i] := TTabSheet.Create(frmDesign);
TabPages[i].Caption := 'Tab ' + Inttostr(i); // The Caption of the title
TabPages[i].PageControl := PageControl; // We Must Identify are Page Control
end;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 16;
GroupBox1.Top := 32;
GroupBox1.Width := 193;
GroupBox1.Height := 201;
GroupBox1.Caption := 'Authentification';
GroupBox1.TabOrder := 0;
Label1 := TLabel.Create(GroupBox1);
Label1.Parent := GroupBox1;
Label1.Left := 24;
Label1.Top := 48;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -8;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label3 := TLabel.Create(GroupBox1);
Label3.Parent := GroupBox1;
Label3.Left := 24;
Label3.Top := 80;
Label3.Width := 46;
Label3.Height := 13;
Label3.Caption := 'Password';
Edit1 := TEdit.Create(GroupBox1);
Edit1.Parent := GroupBox1;
Edit1.Left := 96;
Edit1.Top := 48;
Edit1.Width := 81;
Edit1.Height := 21;
Edit1.TabOrder := 0;
AuthPassword := TEdit.Create(GroupBox1);
AuthPassword.Parent := GroupBox1;
AuthPassword.Left := 96;
AuthPassword.Top := 80;
AuthPassword.Width := 81;
AuthPassword.Height := 21;
AuthPassword.TabOrder := 1;
{Rememberme := TCheckBox.Create(GroupBox1);
Rememberme.Parent := GroupBox1;
Rememberme.Left := 24;
Rememberme.Top := 112;
Rememberme.Width := 97;
Rememberme.Height := 33;
Rememberme.Caption := 'Remember Me?';
Rememberme.TabOrder := 2;}
Login := TButton.Create(GroupBox1);
Login.Parent := GroupBox1;
Login.Left := 56;
Login.Top := 152;
Login.Width := 81;
Login.Height := 25;
Login.Caption := 'Login';
Login.TabOrder := 3;
Login.OnClick := @StartClick;
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 224;
GroupBox2.Top := 32;
GroupBox2.Width := 193;
GroupBox2.Height := 201;
GroupBox2.Caption := 'What'#39's Going On';
GroupBox2.TabOrder := 1;
WhatsGoingOn := TMemo.Create(GroupBox2);
WhatsGoingOn.Parent := GroupBox2;
WhatsGoingOn.Left := 16;
WhatsGoingOn.Top := 24;
WhatsGoingOn.Width := 161;
WhatsGoingOn.Height := 161;
WhatsGoingOn.Lines.Add('Enter Your Auth Username and Password Please');
WhatsGoingOn.TabOrder := 0;
end;
procedure ShowForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('FormStuff', v);
end;
procedure ShowformModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowformModal', v);
end;
function Authenticate: Boolean;
var
AuthUser : string;
AuthPass : string;
begin
AuthUser := 'test';
AuthPass := 'test';
if (AuthPass = YourAuthPass) and (AuthUser = YourAuthUser) then
begin
WhatsGoingOn.Clear;
WhatsGoingOn.Lines.Add('Thank You For Buying');
Result := True;
end else
begin
WhatsGoingOn.Clear;
WhatsGoingOn.Lines.Add('Your Username or Password were incorrect, Please Try Again.');
end;
end;
begin
ShowForm;
SafeShowModal;
end.
How do I make it so that after the first form is closed the second one opens?
Also please post any comments so that I can make it better.