Курсовая работа: Создание мини-игры "Магический квадрат"

zapoln; //Вызов процедуры заполнения таблицы числами

end;

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);

begin

OKBottomDlg.Close; //Закрытиеокнапощелчкукнопки "OK"

end;

end.

Листинг модуля вызова диалогового окна «Правила игры»

unit dialog_pravila;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TOKBottomDlg1 = class(TForm)

OKBtn: TButton; //Кнопка "ОК"

Bevel1: TBevel; //Кромка

Memo1: TMemo; //Текстовоеполе

procedure OKBtnClick(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

OKBottomDlg1: TOKBottomDlg1;

Bitmap2:TBitmap; //фоноваякартинка

implementation

{$R *.dfm}

procedure TOKBottomDlg1.FormPaint(Sender: TObject);//Процедурарисованияфонаформы