Bonjour,

Je veux savoir comment faire pour chaque menu, son sous-menu.
J'ai besoin d'aide svp et voilà le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program Mot_cache;
 
uses App, Objects, Menus, Drivers, Views, TutConst;
 
type
  TTutorApp = object(TApplication)
    procedure InitMenuBar; virtual;
    procedure InitStatusLine; virtual;
  end;
 
procedure TTutorApp.InitMenuBar;
var
  R: TRect;
begin
  GetExtent(R);
  R.B.Y := R.A.Y +1;
  MenuBar := New(PMenuBar, Init(R, NewMenu(
      NewItem('~P~artie', '', kbNoKey, cmNew, hcNew,
      NewItem('~J~oueur', 'F3', kbF3, cmOpen, hcOpen,
      NewItem('~G~rille', 'F2', kbF2, cmSave, hcSave,
      NewItem('~D~ictionaire', '', kbNoKey, cmSaveAs, hcSaveAs,
      NewItem('~O~ption', '', kbNoKey, cmSaveAs, hcSaveAs,
      NewLine(
      NewItem('E~x~it', 'Alt+X', kbAltX, cmQuit, hcExit,
      nil))))))))));
end;
 
procedure TTutorApp.InitStatusLine;
var
  R: TRect;
begin
  GetExtent(R);
  R.A.Y := R.B.Y-1;
  New(StatusLine, Init(R,
    NewStatusDef(8, $EFFF,
  NewStatusKey('', kbF3, cmOpen,
      NewStatusKey('', kbF4, cmNew,
      NewStatusKey('', kbAltF3, cmClose,
      StdStatusKeys(nil)))),
NewStatusDef($F050, $FFFF,
      NewStatusKey('', kbF6, cmOrderNext,
      NewStatusKey(' ', kbShiftF6, cmOrderPrev,
      StdStatusKeys(nil))), nil))));
end;
 
var
  TutorApp: TTutorApp;
 
begin
  TutorApp.Init;
  TutorApp.Run;
  TutorApp.Done;
end.