How to set the timer time in open button button began to calculate the time-CodePudding

When I run
Programs in the timer1 began directly
I use the
Form1 - & gt; Hide ();
Form2 - & gt; Show ();
Switching Windows, so people to Form2 press the open button button to run timer1

I began to twist the hit
Timer1 - & gt; Enabled=true;

CodePudding user response:

In the design mode of the timer1 Enable set to false

CodePudding user response:

//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

#include
# pragma hdrstop

# include "Unit4. H"
# include "Unit3. H"
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
# pragma package (smart_init)
# pragma resource "*. DFM
"TForm3 * Form3;
int x;
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
__fastcall TForm3: : TForm3 (TComponent * Owner)
: TForm (the Owner)
{
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm3: : Button2Click (TObject * Sender)
{
Close ();
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Button1Click (TObject * Sender)
{
Form3 - & gt; Hide ();
Form4 - & gt; Show ();
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Timer2Timer (TObject * Sender)
{
Timer1 - & gt; Enabled=false;

}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Int a1=0, a2=0, a3=0, a4=0, a5=0;
Void __fastcall TForm3: : Timer1Timer (TObject * Sender)
{

If (a1==1)
{
Image1 - & gt; Top=Image1 - & gt; Top;
}
The else
Image1 - & gt; Top=Image1 - & gt; Top;

If (Image1 - & gt; Top & gt;=Height)
Image1 - & gt; Top=0;

If (a2==1)
{
Image2 - & gt; Top=Image2 - & gt; Top;
}
The else
Image2 - & gt; Top=Image2 - & gt; Top;

If (Image2 - & gt; Top & gt;=Height)
Image2 - & gt; Top=0;

If (a3==1)
{
Image3 - & gt; Top=Image3 - & gt; Top;
}
The else
Image3 - & gt; Top=Image3 - & gt; Top;

If (Image3 - & gt; Top & gt;=Height)
Image3 - & gt; Top=0;

If (a4==1)
{
Image4 - & gt; Left=Image4 - & gt; The Left;
}
The else
Image4 - & gt; Left=Image4 - & gt; The Left;

If (Image4 - & gt; Left & gt;=Width)
Image4 - & gt; Left=0;

If (a5==1)
{
Image5 - & gt; Left=Image5 - & gt; The Left;
}
The else

Image5 - & gt; Left=Image5 - & gt; The Left;

If (Image5 - & gt; Left & gt;=Width)
Image5 - & gt; Left=0;
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Image1Click (TObject * Sender)
{
A1=0;
X +=10;
Label2 - & gt; Caption=IntToStr (x);
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Image2Click (TObject * Sender)
{
A2=0;
X +=10;
Label2 - & gt; Caption=IntToStr (x);
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Image3Click (TObject * Sender)
{
A3=0;
X +=10;
Label2 - & gt; Caption=IntToStr (x);
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Image4Click (TObject * Sender)
{
A4=0;
X +=10;
Label2 - & gt; Caption=IntToStr (x);
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm3: : Image5Click (TObject * Sender)
{
A5=0;
X +=10;
Label2 - & gt; Caption=IntToStr (x);
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Can't run

CodePudding user response: