Entwickler-Ecke :: Thema anzeigen - Auf Doppelklick und Enter reagieren

Jochen W. - Di 08.11.05 08:34
Titel: Auf Doppelklick und Enter reagieren

Guten Morgen!

Ich habe eine kleine Anwendung ohne die VCL geschrieben. Das hat auch alles so weit funktioniert doch bei einer Sache komme ich nicht weiter. Hab auch schon in dem WinAPI Toturial (von Lucky) geschaut aber nicht wirklich etwas gefunden was mir hilft etwas zu implementieren das dann auch funktionert. ;-) Bin halt noch nicht so fit was nonvcl angeht. ;-)

Jetzt zu Frage: Ich habe ein Fenster erstellt und auf dem Fenster eine Listbox. Meine Frage ist nun wie ich auf ein Doppelklick und das drücken der Taste Enter in der Listbox reagieren kann?

Hier mal meine WndMain Procedure:

Delphi-Quelltext

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:

  Function WndProc (hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: LParam) : lresult; stdcall;
  Var
    Result : lresult;
    Buffer : PChar;
    Loop : Integer;
  begin
    Result := 0;

    case uMsg of
      WM_CREATE:
        begin
          IgnoreBool := MoveWindow (
            hWnd, 10, 10, 100, 100,
            True
          );

          hwndListBox := CreateWindowEx (
            WS_EX_CLIENTEDGE,
            'LISTBOX', nil,
            WS_CHILD Or WS_VISIBLE Or LBS_NOTIFY Or WS_VSCROLL Or WS_BORDER Or WS_TABSTOP,
            10, 10, 80, 80,
            hWnd, IDC_LISTBOX, hInstance, nil
          );

      WM_COMMAND:
        Case hiword (wParam) Of
            LBN_SELCHANGE:
              Case LoWord (wParam) Of
                IDC_LISTBOX:
                  Begin
                  End;
              End;
          End;
    End;

    Result := DefWindowProc(hWnd, uMsg, wParam, lParam);

    WndProc := Result;
  End;

Auf eine Änderung der Listbox kann ich schon reagieren aber nicht auf einen Doppelklick und einen Tastendruck. Wäre schön wenn mir jemand ein paar Hinweise geben könnte.

Vielen lieben dank!

Bye Jochen

Jochen W. - Di 08.11.05 09:11

So, nach dem ich noch etwas in der messages.pas Datei rumgesucht habe habe ich auch die Konstate LBN_DBLCLK entdeckt. ;-) Und das scheint auch zu funktionieren.

Allerdings hab ich dann noch das Problem mit der Taste Enter. Ich hab auch schon probiert den OK Button das Flag BS_DEFPUSHBUTTON zu geben in der Hoffnung, dass dann ein Enter in der Listbox automatisch zu einen Klick auf dem Ok-Button führt (halt so wie man das aus der VCL kennt). Aber leider klappt das nicht. Der Ok-Button hat zwar mit diesem Flag einen dickeren Rand (was üblich für einen Default-Button ist) aber wenn ich Enter drücke (in der Listbox) wird der Ok-Button nicht angeklickt. :-(

Hat jemand eine Tipp? Danke!!

Bye Jochen

Delete - Di 08.11.05 13:02

Guck dir mal Suche im MSDN

WM_VKEYTOITEM an:

Delphi-Quelltext

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:

    WM_VKEYTOITEM:
      begin
{$WARNINGS OFF}
        if lParam = GetDlgItem(hTabDlgs[3], ID_LST_USER_GRPS) then
{$WARNINGS ON}
        begin
          case loword(wParam) of
            VK_DELETE:
              begin
                SendMessage(GetDlgItem(hTabDlgs[3], ID_LST_USER_GRPS), LB_DELETESTRING, hiword(wParam), 0);
                MyEnableMenuItem(hMenu, ID_MNU_SAVE, True);
                bModified := True;
              end;
          end;
        end
{$WARNINGS OFF}
        else if lParam = GetDlgItem(hTabDlgs[3], ID_LST_AVAILABLE_GRPS) then
{$WARNINGS ON}
        begin
          case loword(wParam) of
            VK_INSERT:
              begin
                SendMessage(GetDlgItem(hTabDlgs[3], ID_LST_AVAILABLE_GRPS), LB_GETTEXT, hiword(wParam),
                  Integer(@buffer));
                if SendMessage(GetDlgItem(hTabDlgs[3], ID_LST_USER_GRPS), LB_FINDSTRING, -1, Integer(@buffer)) = LB_ERR
                  then
                begin
                  SendMessage(GetDlgItem(hTabDlgs[3], ID_LST_USER_GRPS), LB_ADDSTRING, 0, Integer(@buffer));
                  MyEnableMenuItem(hMenu, ID_MNU_SAVE, True);
                  bModified := True;
                end;
              end;
          end;
        end;
        EnableMenuItem(hmenu, ID_MNU_SAVE, MF_BYCOMMAND or MF_ENABLED);
      end;

So kan man auf Entferen und Einfügen reagieren. Enter ist dann entsprechend VK_RETURN.

Tino - Di 13.03.07 10:51

Hallo Jochen!

Ich habe das gleiche Problem. Auf meinem Fenster befinden sich drei Elemente: Eine Listbox und zwei Buttons (s. Anhang).

Wähle ich einen Eintrag in der Listbox aus und drücke dann ENTER oder ESC funktioniert es leider nicht wie ich es erwartet hätte. Der OK Button hat unter anderem das Style BS_DEFPUSHBUTTON. Aber auch das reicht wohl nicht.

Hast du zufällig eine Lösung gefunden bzw. hat jemand anders eine Lösung?

Gruß
Tino

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!