nonVCL-Klasse

[NicoDE]

Du hast im Init() zwar den Klassennamen kopiert aber nicht den Rest (ist also nicht initialisiert).
Es fehlt alsoself.fDsgnParams := aDsgnParams; Off-Topic:
- Der Code-Style ist sehr gewöhnungsbedürftig.
- Warum steht dort 'do not use', wenn es in der Demo benutzt wird?
- Angeforderte Ressourcen werden nicht wieder freigegeben.
- Fehlerbehandlung fehlt fast komplett...
z.B. sollte bei GetMessage() der Rückgabewert -1 abgefangen werden!

Delphi-Quellcode:

  while True do
    case Integer(GetMessage(Msg, HWND(0), 0, 0)) of
      0:  // WM_QUIT
        begin
//        ExitCode := Msg.wParam;
          Break;
        end;
      -1:  // Error!
        begin
//        ExitCode := -1;
          Break;
        end;
    else
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;

Gruss Nico