Код
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
kol:=15;
Caption:='Игра';
Color:=$00FC1B01;
BorderStyle:=bsSingle;
ClientWidth := CW*((kol div 4)+1);
ClientHeight := CH*8;
Menu:=MainMenu1;
MainMenu1:=TMainMenu.Create(Form1);
with MainMenu1 do begin
Left:= 10; \\вот это вроде в свойствах меню нет, но надо же как-то
Top:= 10; \\ задавать, где оно должно находиться :huh:
Parent:=Form1;
ParentBiDiMode:=True;
Exit:=TMenuItem.Create(Form1.MainMenu1);
with Exit do begin
OnClick:=FormExit;
Caption:='Выход';
end;
Spravka:=TMenuItem.Create(Form1.MainMenu1.Items);
with Spravka do begin
Caption:='Справка';
About:=TMenuItem.Create(Spravka);
with About do begin
OnClick:=PrgAbout;
Caption:='О программе';
end;
Rules:=TMenuItem.Create(Spravka);
with Rules do begin
OnClick:=GameRules;
Caption:='Правила';
end; end; end;
var i:integer;
begin
kol:=15;
Caption:='Игра';
Color:=$00FC1B01;
BorderStyle:=bsSingle;
ClientWidth := CW*((kol div 4)+1);
ClientHeight := CH*8;
Menu:=MainMenu1;
MainMenu1:=TMainMenu.Create(Form1);
with MainMenu1 do begin
Left:= 10; \\вот это вроде в свойствах меню нет, но надо же как-то
Top:= 10; \\ задавать, где оно должно находиться :huh:
Parent:=Form1;
ParentBiDiMode:=True;
Exit:=TMenuItem.Create(Form1.MainMenu1);
with Exit do begin
OnClick:=FormExit;
Caption:='Выход';
end;
Spravka:=TMenuItem.Create(Form1.MainMenu1.Items);
with Spravka do begin
Caption:='Справка';
About:=TMenuItem.Create(Spravka);
with About do begin
OnClick:=PrgAbout;
Caption:='О программе';
end;
Rules:=TMenuItem.Create(Spravka);
with Rules do begin
OnClick:=GameRules;
Caption:='Правила';
end; end; end;
Тегами для подсветки кода пользуйтесь