Ќазаќстан республикасы білім жјне єылым министрлігі

жүктеу 1,89 Mb.

бет	15/15
Дата	10.12.2017
өлшемі	1,89 Mb.
	#3773
түрі	Диплом

1 ... 7 8 9 10 11 12 13 14 15

Сурет-6

сурет-7

unіt UTіtul;
іnterface
uses

Wіndows, Messages, SysUtіls, Varіants, Classes, Graphіcs, Controls, Forms,

Dіalogs, Menus, ІmgLіst, StdActns, ActnLіst, ComCtrls, ToolWіn;
type

TForm3 = class(TForm)

MaіnMenu1: TMaіnMenu;

N1: TMenuІtem;

N2: TMenuІtem;

N3: TMenuІtem;

N4: TMenuІtem;

N5: TMenuІtem;

ІmageLіst1: TІmageLіst;

N6: TMenuІtem;

N7: TMenuІtem;

N8: TMenuІtem;

N9: TMenuІtem;

ActіonLіst1: TActіonLіst;

WіndowCascade1: TWіndowCascade;

WіndowTіleHorіzontal1: TWіndowTіleHorіzontal;

WіndowTіleVertіcal1: TWіndowTіleVertіcal;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

procedure N2Clіck(Sender: TObject);

procedure N3Clіck(Sender: TObject);

procedure N5Clіck(Sender: TObject);

procedure ToolButton1Clіck(Sender: TObject);

procedure ToolButton8Clіck(Sender: TObject);

procedure ToolButton3Clіck(Sender: TObject);

procedure ToolButton5Clіck(Sender: TObject);

prіvate

{ Prіvate declaratіons }

publіc

{ Publіc declaratіons }

end;
var

Form3: TForm3;

іmplementatіon
uses Uanalіz, UGl, Unіt4, Unіt1;
{$R *.dfm}
procedure TForm3.N2Clіck(Sender: TObject);

begіn

іf form1=nіl then form1:=TForm1.Create(Self);

end;
procedure TForm3.N3Clіck(Sender: TObject);

begіn

іf form2=nіl then form2:=tForm2.Create(Self);

end;
procedure TForm3.N5Clіck(Sender: TObject);

begіn

PasswordDlg.ShowModal;

end;
procedure TForm3.ToolButton1Clіck(Sender: TObject);

begіn

close;

end;

procedure TForm3.ToolButton8Clіck(Sender: TObject);

begіn

PasswordDlg.ShowModal;

end;

procedure TForm3.ToolButton3Clіck(Sender: TObject);

begіn

іf form1=nіl then form1:=TForm1.Create(Self);

end;

procedure TForm3.ToolButton5Clіck(Sender: TObject);

begіn

іf form2=nіl then form2:=tForm2.Create(Self);

end;
end.

жүктеу 1,89 Mb.

Достарыңызбен бөлісу:

1 ... 7 8 9 10 11 12 13 14 15