Non-Vcl Tut von Assarbad

[shareholder]

http://www.delphi-source.de/tutorials/nonvcl/?page=5

Delphi-Quellcode:

begin
  Result := 0;
  case uMsg of
    WM_CREATE:
      begin
        result := DefWindowProc(hWnd, uMsg, wParam, lParam);
        HLcursor := LoadCursor(hInstance, 'HandCursor'); // <-- FEHLER !!!
        DC := GetWindowDC(hWnd);
        inactivefont := fixfont(DC, 8, FW_NORMAL, FALSE);
        activefont := fixfont(DC, 8, FW_BOLD, TRUE);
        ReleaseDC(hWnd, DC);
        inactivecolor := rgb($0, $0, $0);
        activecolor := rgb($0, $0, $FF);
        SendMessage(hWnd, WM_CAPTURECHANGED, 0, 0);
      end;
    WM_RBUTTONUP,
      WM_LBUTTONUP:
      begin
      ...

der compiler gibt die meldung:
"Der linken Seite kann nix zuegwiesen werden"
aus. :(

Kann jmd. helfen ? Danke ! :)

[Christian Seehase]

Moin Shareholder,

zwei Möglichkeiten:

1. Du verschiebst die Deklaration von HLcursor von const nach var
2. Du aktivierst in den Projektoptionen (Projekt\Optionen) auf dem TabSheet Compiler die CheckBox "Zuweisbare typisierte Konstanten"

Ich bevorzuge die 1. Variante, da für mich eine Konstante auch konstant bleiben sollte.

[shareholder]

Zitat:

Zitat von Christian Seehase

Moin Shareholder,
Ich bevorzuge die 1. Variante, da für mich eine Konstante auch konstant bleiben sollte.

Wenn ich aber die "Noch-Konstante" als Var deklariere ist sie ja nicht mehr konstant.
Du verwirrst mich! ;-)

Btw.: Wenn Ich sie als dekl. dann kommt die Meldung:

...HLinkTest.exe' konnte nicht erstellt werden

kannst du das bei dir evtl. nochmal testen?

[Christian Seehase]

Moin Shareholder,

Zitat:

Zitat von shareholder

Wenn ich aber die "Noch-Konstante" als Var deklariere ist sie ja nicht mehr konstant.

stimmt, und in dem Programm wird die Konstante ja auch als Variable verwendet ;-)

[shareholder]

kann es sein, das die main.res und handcurser.res fehlt ?

[Luckie]

Zitat:

Zitat von shareholder

kann es sein, das die main.res und handcurser.res fehlt ?

Das wirst wohl nur du uns beantworten können. ;)

[shareholder]

ne, ich habe doch den link oben gepostet

und die datei hlinktest.zip enthält die nicht.

vllt. habe ich aber auch was übersehen! :(

[Luckie]

Wieso sind doch alle da: handcursor.rc und main.rc. Du musst sie natürlich vorher kompilieren. Aber extra dazu liegt dich eine resbuild.bat bei.

[shareholder]

aber wenn ich versuche zu batchen, dann kommt die meldung:

Der Befehl "brcc32" ist entweder falsch geschrieben oder konnte nicht gefunden werden.

woran kann das liegen ? :gruebel:

[Chewie]

Dein Delphi\bin-Verzeichnis ist nicht in der Pfad-Umgebungsvariable registriert. Wenn du Win 2000/XP hast, mach folgendes: Rechtsklick auf Arbeitsplatz -> Eigenschaften -> Erweitert -> Umgebungsvariablen. Dort fügst du dieses Verzeichnis zur Variablen path hinzu.