NonVCL auf Buttons reagieren

[Gehstock]

Delphi-Quellcode:

function WndProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall;
begin
  Result := 0;
  case uMsg of
    WM_CREATE:
      begin
        IDLoad := createwindow('BUTTON', 'Load Container',
        WS_VISIBLE or WS_CHILD, 10, 130, 150, 25, hwnd, 0, hInstance,
        nil);
        IDClb := createwindow('BUTTON', 'Save to Clipboard',
        WS_VISIBLE or WS_CHILD, 160, 130, 150, 25, hwnd, 0, hInstance,
        nil);
        IDSav := createwindow('BUTTON', 'Save to File',
        WS_VISIBLE or WS_CHILD, 310, 130, 150, 25, hwnd, 0, hInstance,
        nil);
        IDMemo := CreateWindow('Edit', '',
        WS_VISIBLE or WS_CHILD, 10, 5, 450, 120, hwnd, 0, hInstance,
        nil);
        IDLab := createwindow('Static', 'Test',
        WS_VISIBLE or WS_CHILD, 130, 190, 150, 25, hwnd, 0, hInstance,
        nil);
      end;
    WM_DESTROY:
      begin
        PostQuitMessage(0);
      end;
    WM_COMMAND:
     if hiword(wparam) = BN_CLICKED then
      begin
       Case loword(wparam) of
        IDLoad : MessageBox(hwnd, 'Load Button gedrückt', 'Meldung', 0);  //Hier hängts
        IDClb : MessageBox(hwnd, 'Clipboard Button gedrückt', 'Meldung', 0);
        IDSav : MessageBox(hwnd, 'Speichern Button gedrückt', 'Meldung', 0);
        IDMemo : MessageBox(hwnd, 'Memo gedrückt', 'Meldung', 0);
        else
        Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
       end;
  end;
  end;
end;

versuch grad ein existierendes Projekt NonVCL zu machen Allerdings bei Case komm ich net weiter
1. [Pascal Fehler] NonVCL.dpr(188): E2026 Konstantenausdruck erwartet
2. Frage wird nach Case nicht mit end; geschlossen

[Luckie]

Rück mal deine "ends" gescheit ein. Und was ist Zeile 188? Dann können wir weiter überkegen, was du falsch machst. Aber du kannst dir ja auch schon mal mein Tutorial angucken: http://delphitutorials.michael-puff.de

[Gehstock]

Delphi-Quellcode:

function WndProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall;
begin
  Result := 0;
  case uMsg of
    WM_CREATE:
      begin
        IDLoad := createwindow('BUTTON', 'Load Container',
        WS_VISIBLE or WS_CHILD, 10, 130, 150, 25, hwnd, 0, hInstance,
        nil);
        IDClb := createwindow('BUTTON', 'Save to Clipboard',
        WS_VISIBLE or WS_CHILD, 160, 130, 150, 25, hwnd, 0, hInstance,
        nil);
        IDSav := createwindow('BUTTON', 'Save to File',
        WS_VISIBLE or WS_CHILD, 310, 130, 150, 25, hwnd, 0, hInstance,
        nil);
        IDMemo := CreateWindow('Edit', '',
        WS_VISIBLE or WS_CHILD, 10, 5, 450, 120, hwnd, 0, hInstance,
        nil);
        IDLab := createwindow('Static', 'Test',
        WS_VISIBLE or WS_CHILD, 130, 190, 150, 25, hwnd, 0, hInstance,
        nil);
      end;
    WM_DESTROY:
      begin
        PostQuitMessage(0);
      end;
    WM_COMMAND:
      if hiword(wparam) = BN_CLICKED then
       begin
        Case loword(wparam) of
        IDLoad : MessageBox(hwnd, 'Load Button gedrückt', 'Meldung', 0);  //Zeile 188
        IDClb : MessageBox(hwnd, 'Clipboard Button gedrückt', 'Meldung', 0);
        IDSav : MessageBox(hwnd, 'Speichern Button gedrückt', 'Meldung', 0);
        IDMemo : MessageBox(hwnd, 'Memo gedrückt', 'Meldung', 0);
        else
        Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
        End;
       end;
  end;
end;

[Luckie]

1. Im

Delphi-Quellcode:

loword(wparam)

steht die ID des Fensters und nicht dessen Handle.
2. Muss dies eine Konstante sein.
3. Dann klappt es auch mit case. ;)

Das Handle brauchst du dir auch nicht zu merken in einer globalen Variable, da du mit GetDElgItem an das Handle kommst, wenn du es benötigst.

[Gehstock]

habs Hinbekommen :-D
Man ist das Kompliziert da kommen die nächsten Tage bestimmt noch mehr Fragen

Danke