steth1010
2007-05-21 22:00:42
When i make it press a button the second form wont open? hmm
Plz help ill show u the script if u need to see it becus atm i am deleting my user name and pw out of it so u can see it
heres the script now just s small simple one (First form)
Changing start to a diff name but how can i make it right now when hit start open the Yew_Banker form?
Plz help ill show u the script if u need to see it becus atm i am deleting my user name and pw out of it so u can see it
heres the script now just s small simple one (First form)
Changing start to a diff name but how can i make it right now when hit start open the Yew_Banker form?
program New;
var
User_Info : TForm;
Username : TLabel;
Password : TLabel;
Edit2 : TEdit;
Edit1: TEdit;
Start : TButton;
Yew_Banker : TForm;
Create_User : TButton;
Delete_User : TButton;
Memo1 : TMemo;
procedure ButtonClick(sender: TObject);
begin
WriteLn('Started Script');
User_Info.Caption:= User_Info.Caption + '.';
User_Info.ModalResult:= mrOk;
end;
procedure InitForm;
begin
User_Info := CreateForm;
User_Info.Left := 383;
User_Info.Top := 236;
User_Info.Width := 294;
User_Info.Height := 238;
User_Info.Caption := 'User_Info';
User_Info.Color := clBtnFace;
User_Info.Font.Color := clWindowText;
User_Info.Font.Height := -11;
User_Info.Font.Name := 'MS Sans Serif';
User_Info.Font.Style := [];
User_Info.Visible := False;
User_Info.PixelsPerInch := 96;
Username := TLabel.Create(User_Info);
Username.Parent := User_Info;
Username.Left := 50;
Username.Top := 46;
Username.Width := 48;
Username.Height := 13;
Username.Caption := 'Username';
Password := TLabel.Create(User_Info);
Password.Parent := User_Info;
Password.Left := 51;
Password.Top := 81;
Password.Width := 46;
Password.Height := 13;
Password.Caption := 'Password';
Edit1 := TEdit.Create(User_Info);
Edit1.Parent := User_Info;
Edit1.Left := 103;
Edit1.Top := 43;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := 'Edit1';
Edit2 := TEdit.Create(User_Info);
Edit2.Parent := User_Info;
Edit2.Left := 103;
Edit2.Top := 78;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Edit2';
Start := TButton.Create(User_Info);
Start.OnClick:=@ButtonClick;
Start.Parent := User_Info;
Start.Left := 116;
Start.Top := 128;
Start.Width := 75;
Start.Height := 25;
Start.Caption := 'Start';
Start.TabOrder := 10;
Yew_Banker := CreateForm;
Yew_Banker.Left := 271;
Yew_Banker.Top := 104;
Yew_Banker.Width := 508;
Yew_Banker.Height := 548;
Yew_Banker.Caption := 'Yew_Banker';
Yew_Banker.Color := clBtnFace;
Yew_Banker.Font.Color := clWindowText;
Yew_Banker.Font.Height := -11;
Yew_Banker.Font.Name := 'MS Sans Serif';
Yew_Banker.Font.Style := [];
Yew_Banker.Visible := False;
Yew_Banker.PixelsPerInch := 96;
Create_User := TButton.Create(Yew_Banker);
Create_User.Parent := Yew_Banker;
Create_User.Left := 40;
Create_User.Top := 13;
Create_User.Width := 95;
Create_User.Height := 40;
Create_User.Caption := 'Create_User';
Create_User.TabOrder := 8;
Delete_User := TButton.Create(Yew_Banker);
Delete_User.Parent := Yew_Banker;
Delete_User.Left := 369;
Delete_User.Top := 13;
Delete_User.Width := 101;
Delete_User.Height := 41;
Delete_User.Caption := 'Delete_User';
Delete_User.TabOrder := 9;
Memo1 := TMemo.Create(Yew_Banker);
Memo1.Parent := Yew_Banker;
Memo1.Left := 166;
Memo1.Top := 2;
Memo1.Width := 185;
Memo1.Height := 183;
Memo1.Lines.Add(' EDGEVILLE ');
Memo1.Lines.Add('YEW BANKER!');
Memo1.Lines.Add('Click Create users to add more users ');
Memo1.Lines.Add('and fill in the information');
Memo1.Lines.Add('Click delete user to delete the last ');
Memo1.Lines.Add('user created.');
Memo1.Lines.Add('Click finish for the script to start and ');
Memo1.Lines.Add('everything be inserted into the script');
Memo1.Lines.Add('Click Cancel to exit the form and ');
Memo1.Lines.Add('nothing be inserted into the script');
Memo1.Lines.Add('*Coming Soon*');
Memo1.Lines.Add('Have more options on run directions, ');
Memo1.Lines.Add('random stuff, auto talk info, ETC.');
Memo1.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure SafeInitotherForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
User_Info.ShowModal;
end;
procedure ShowotherFormModal;
begin
Yew_Banker.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure openTheOtherForm(sender : TObject);
begin
safeInitOtherForm;
end;
begin
SafeInitForm;
SafeShowFormModal;
FreeForm(User_Info); // Frees the form from memory.
end.