 form3
Form3.PageControl1.TabIndex:=0;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
  Timer1.Enabled:=true;
     Edit1.Visible:=false;
    Button5.Visible:=false;
    listbox1.Visible:=true;
Application
Form3
 form3.Free;
end;
Application.CreateForm(TForm1, Form1);
enablewindow(form1.handle,true);//

  Application.CreateForm(TForm3, Form3);
   form3.Button2.Click;
if  form3.Edit1.text=Dec(form3.Edit2.text) then
 begin


     form3.Free;
   end else   form3.Show;


  Application.CreateForm(TForm3, Form3);
   form3.Button2.Click;
if  form3.Edit1.text=Dec(form3.Edit2.text) then
 begin


     form3.Free;
   end else   form3.Show;
enablewindow(handle,false);//һ
form2.show;


  Application.CreateForm(TForm3, Form3);
   form3.Button2.Click;
if  form3.Edit1.text=Dec(form3.Edit2.text) then
 begin


     form3.Free;
   end else   form3.Show;

Form1.Free;
  form1.Show;

  form3.Free;
Form2
 form3.
 form3.Button2.Click;
Application.CreateForm(TForm3, Form3);
if   CheckBox1.Checked=true then   begin
  Button3.Enabled:=true;
  Button4.Enabled:=true;
     Button4.Visible:=true;
 end else  begin
 Button3.Enabled:=false;

      Tabsheet1.tabvisible := False;
       Button4.Enabled:=false;

if   CheckBox1.Checked=true then   begin
  Button3.Enabled:=true;
  Button4.Enabled:=true;
     Button4.Visible:=true;
 end else  begin
 Button3.Enabled:=false;

      Tabsheet1.tabvisible := False;
       Button4.Enabled:=false;



         end;


         end;
if   CheckBox1.Checked=true then   begin
  Button3.Enabled:=true;
  Button4.Enabled:=true;
     Button4.Visible:=true;
 end else  begin
 Button3.Enabled:=false;

      Tabsheet1.tabvisible := False;
       Button4.Enabled:=false;
         end;
if   CheckBox1.Checked=true then   begin
  Button3.Enabled:=true;
  Button4.Enabled:=true;
     Button4.Visible:=true;
 end else  begin
 Button3.Enabled:=false;

      Tabsheet1.tabvisible := False;
       Button4.Enabled:=false;
         end;
F4399E13D62BB570F63C9813D05FB4768A3B996CAA2CB271F33A9F17D05AB373

666666
111111


ǽ


С
Ȫ
"ӻ"ı
ޱ
asdf6
Ө

ջ
Ʊϼ

С

Ҷ

¾
Ÿ
ʫ
ӱ

Ӣ
ŷ
µ






Ө

ջ
Ʊϼ

С

Ҷ

ޱ
ǽ
Ȫ
С



¾
Ÿ
ʫ
ӱ

Ӣ
ŷ
µ



