Componentes :
2 Form
1 Timer
1 Button
Códigos :
Aperte ctrl + shift + F11
clique em form1 e do lado aperte > e depois <
e de ok.
Timer Interval = 1
Timer Enabled = False
No evento do timer declare!
Button OnClick :
FormOnCreat :
2 Form
1 Timer
1 Button
Códigos :
Aperte ctrl + shift + F11
clique em form1 e do lado aperte > e depois <
e de ok.
Timer Interval = 1
Timer Enabled = False
No evento do timer declare!
keybd_event(VK_return, 0, 0, 0);
form1.Show;
form2.Destroy;
form1.Show;
form2.Destroy;
form1.Show;
form2.Destroy;
form2.Destroy;
Timer1.enabled :=true;
Comment