Сообщение от
ImusTkill
Я умею делать переход с Формы1 на фотрм2, например через 2 минуты (Но не умею показать отщёт времени) Как это сделать ?
где его показывать? Скажем как активировалась 2 форма, должно что-то пойти? Ну помести на форму 2 таймер, и сказать как форма2 активировалась, стартануть таймер, в теле таймера считать переменную +1 все время, эта переменная должна быть глобальной
вот смотри
форма раз
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
n: Integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
n := n + 1;
Caption := 'Форма раз '+IntToStr(n);
if n = 120 then
begin
n := 0;
Form1.Hide;
Form2.Show;
Form2.Timer1.Enabled := True;
Form1.Timer1.Enabled := False;
end;
end;
end. |
|
вот форма 2
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
n: Integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Timer1Timer(Sender: TObject);
begin
n := n + 1;
Caption := 'Форма два '+IntToStr(n);
if n = 120 then
begin
n := 0;
Form2.Hide;
Form1.Show;
Form1.Timer1.Enabled := True;
Form2.Timer1.Enabled := False;
end;
end;
end. |
|
на обеих формах лежит по 1 таймеру на первой форме еще кнопка есть, включить таймер , оба таймера на 2 формах выключены, интервал в 1000, формы будут о очереди меняться, при этом будет писать в заголовке программы прошедшее время
(
Сообщение было отмечено ImusTkill как решение
Сообщение от ImusTkill
