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

N2: TMenuItem; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure N2Click(Sender: TObject); procedure N4Click(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

A, k :integer;

implementation

uses Unit2, unit6, Unit3;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject); begin

AboutBox.ShowModal; end;

procedure TForm1.N4Click(Sender: TObject); begin close; end;

procedure TForm1.Button1Click(Sender: TObject); begin k:=StrToInt(edit1.Text); if (k30) then ShowMessage('Не верно задано значение') else begin k:=StrToInt(edit1.Text);

Form2.StringGrid1.ColCount:=(k+1);

Form2.visible:=true;

Form1.visible:=false; end;

Form2.StringGrid1.Cells[0,0]:='X';

Form2.StringGrid1.Cells[0,1]:='Y'; end;

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

end.

_

unit Unit2;

interface

uses

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



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

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