
13.03.2015, 16:00
|
Прохожий
|
|
Регистрация: 20.06.2014
Сообщения: 14
Версия Delphi: Delphi 2010
Репутация: 10
|
|
Вот код Form3
Код:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm3 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses
Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
Form4.ShowModal();
Timer1.Enabled:=false;
end;
end.
Вот код Form4
Код:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm4 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
end.
Не работает!! Че не так Плиз!!!
|