Discussion :

[maxiNoob]

Alors là je ne comprend rien, je n'ai rien modifié ds le programme
et je me prend ça ds les dents



S.O.S.

la compilation semble aller à son terme, j'ai le message: compilation réussie

le programme semble planter à la lecture du projet (lpr)

[batyann811]

Voilà qui ressemble à ton problème :

http://www.lazarus.freepascal.org/in...p?topic=8125.0

[maxiNoob]

merci de ta réponse j'avais parcouru ce sujet, en gros il manquait Application.initialize à son projet ou bien il était mal classé, or chez moi il est bien présent (voir le screenshot), donc je nage et du coup plus rien ne marche

[batyann811]

Oups ! Je n'avais pas bien regardé ta capture.

A ta place mettrais toutes les lignes Application.CreateForm(...) en commentaire histoire de voir si ça plante sans puis je les 'décommenterais' une par une pour voir si c'est l'une d'entre elles qui pose problème.

[maxiNoob]

pas bête , j'ai essayé, mais hélas niet, nada

c'est vraiment terrible car ce bug est peu documenté sur le net et là mon projet est bloqué, j'espère que ça va inspirer qqu'un

[maxiNoob]

le logiciel semble buggué dans ce module Win32WSControls, je copie sans comprendre la procedure où le programme s'arrête:

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
procedure FinishCreateWindow(const AWinControl: TWinControl; var Params: TCreateWindowExParams;
  const AlternateCreateWindow: boolean);
var
  lhFont: HFONT;
  AErrorCode: Cardinal;
begin
  if not AlternateCreateWindow then
  begin
    with Params do
    begin
      if (Flags and WS_CHILD) <> 0 then
      begin
        // menu handle is also for specifying a control id if this is a child
        MenuHandle := HMENU(AWinControl);
      end else begin
        MenuHandle := HMENU(nil);
      end;

      {$ifdef WindowsUnicodeSupport}
      if UnicodeEnabledOS then
        Window := CreateWindowExW(FlagsEx, PWideChar(WideString(pClassName)),
          PWideChar(UTF8ToUTF16(WindowTitle)), Flags,
          Left, Top, Width, Height, Parent, MenuHandle, HInstance, nil)
      else
        Window := CreateWindowEx(FlagsEx, pClassName,
          PChar(Utf8ToAnsi(WindowTitle)), Flags,
          Left, Top, Width, Height, Parent, MenuHandle, HInstance, nil);
      {$else}
        Window := CreateWindowEx(FlagsEx, pClassName,
          PChar(WindowTitle), Flags,
          Left, Top, Width, Height, Parent, MenuHandle, HInstance, nil);
      {$endif}

      if Window = 0 then
      begin
        AErrorCode := GetLastError;
        DebugLn(['Failed to create win32 control, error: ', AErrorCode, ' : ', GetLastErrorText(AErrorCode)]);
        raise Exception.Create('Failed to create win32 control, error: ' + IntToStr(AErrorCode) + ' : ' + GetLastErrorText(AErrorCode));
      end;
    end;
    { after creating a child window the following happens:
      1) the previously bottom window is thrown to the top
      2) the created window is added at the bottom
      undo this by throwing them both to the bottom again }
    { not needed anymore, tab order is handled entirely by LCL now
    Windows.SetWindowPos(Windows.GetTopWindow(Parent), HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
    Windows.SetWindowPos(Window, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
    }
  end;