Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Button2: TButton;

Edit1: TEdit;

StaticText6: TStaticText;

Image2: TImage; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end;

var
Form1: TForm1;
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); var PAR : string; begin
PAR:=Edit1.Text;
If PAR='orion 17' Then begin

Form2:=TForm2.Create(Application);

Form2.ShowModal;

Form2.Free;

Edit1.Clear; end else begin if MessageDlg('Пароль невірний! Значення "
'+Edit1.Text+' " не є паролем! Зверніться до розробника', mtError,[mbOK],0)=mrOK then

Edit1.Clear; end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin
Image1.Picture.LoadFromFile('star.jpg');
Image2.Picture.LoadFromFile('star2.jpg'); end;

end.
[pic] unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,Math,
Dialogs, StdCtrls,
ExtCtrls,Unit3,KonstPLN,Eagth,Mars,Jupiter,Saturn,Mercury,
Venus,Uran,Neptun,Pluton, Common,Unit4;

type
TForm2 = class(TForm)

Panel1: TPanel;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

Рекомендуем скачать другие рефераты по теме: 6 класс контрольные работы, реферат на тему життя.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки