Results 1 to 6 of 6

Thread: Form Help.

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Form Help.

    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.

  2. #2
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Like this...a little messy cuz of ur proc names but... it works

    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 := False;
    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;

    procedure ShowNextForm;
    Begin
    ShowPlayerForm;
    SafeShowModalPlayerForm;
    ShowPlayerFormModal;
    End;

    begin
      ShowForm;
      SafeShowModal;
      ShowNextForm;
    end.

  3. #3
    Join Date
    Jan 2007
    Location
    East Coast, USA
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    38 Post(s)

    Default

    I'll take a look when I get home and post...
    I think you need a:
    frmDesign.OnClose := @opennewform

    I'm not sure, but I have something like this in my script...

  4. #4
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fastler, I already tried that.

  5. #5
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it takes ages to look what Da 0wner changed but basiclly he did was:
    SCAR Code:
    PlayerForm.Visible := True;
    to
    SCAR Code:
    PlayerForm.Visible := False;

    If it's true you will get an error.

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  6. #6
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    And added the procedures in main loop But I made a better one and you can look in skilld's topic called Arghh or something like that .

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •