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

procedure TForm2.Button1OnClick(Sender: TObject); begin

Form3.visible:=true;

Form2.visible:=false; end;

procedure TForm2.Button2OnClick(Sender: TObject); begin

Form1.visible:=true;

Form2.visible:=false; end;

procedure TForm2.N2Click(Sender: TObject); begin

AboutBox.ShowModal; end;

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9', '.']) then key:=#0; end;

end.

unit unit3;

interface

uses

Windows, Math, Messages, SysUtils, Variants,

Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ComCtrls;

type

TForm3 = class(TForm)

Label2: TLabel;

Edit1: TEdit;

Memo1: TMemo;

Edit3: TEdit;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

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



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

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