Enter wie bei OnKeyDown im Edit abfangen...

[Dark Templar]

Ich will, dass ein bestimmter code ausgeführt wird, wenn der User in meinem Edit-Control die Eingabetaste drückt, so wie beim VCL OnKeyDown Event.

Die Message dazu wäre ja WM_KEYDOWN, aber wie muss ich die einsetzen, um auch wirklich nur die eingaben in dem bestimmten control abzufangen?

[Nikolas]

Im OnKeyPress schauen, ob Key=#13 und los geht's.

[nailor]

WinAPI!!!

[Hansa]

Die WinApi braucht man für so was nun wirklich nicht. Wie Toxman schreibt : Im OnKeyPress abfangen !

[Dark Templar]

Ähem... könnten sich die VCL Junkies mal bitte da heraushalten?
Das Edit-Control, dass mit der WinAPI erstellt wurde, ist in keiner Klasse wie TEdit zusammengefasst, demzufolge kann ich auch nicht auf Notification-Properties zurückgreifen.

[Luckie]

Du musst das Edit Subclassen:

Delphi-Quellcode:

function EditWndProc(hEdit, uMsg, wParam, lParam: DWORD): DWORD; stdcall;
begin
  Result := 0;
  case uMsg of
    WM_CHAR:
      case Byte(wParam) of
        Byte('0')..Byte('9'),
          Byte(','), VK_DELETE,
          VK_BACK:
          CallWindowProc(OldWndProc, hEdit, uMsg, wParam, lParam);
      end;
  else
    Result := CallWindowProc(OldWndProc, hEdit, uMsg, wParam, lParam);
  end;
end;

OldWndProc := Pointer(SetWindowLong(GetDlgItem(hWnd, 103), GWL_WNDPROC, Integer(@EditWndProc))); Obiges Fensterprozedur läst nur Ziffern in einem Edit zu.

[Leuselator]

Hier werden Sie geholfen
Gruß

[Dark Templar]

thx

[Dark Templar]

Ich hab jetzt einen extra Typen für das EditControl entworfen, bei dem die WndProc als private deklariert wurde.

Der constructor soll nun die alte Proc auf die neue umstellen, was dann in etwa so aussehen sollte:

FOldWndProc:= Pointer(SetWindowLong(FHandle, GWL_WNDPROC, Integer(@Self.WndProc))); Der Compiler meckert jetzt herum, weil er eine Variable beim dritten Parameter erwartet. Aber warum erkennt er die klasseninterne Funktion nicht an?

[Vjay]

Das lässt sich einfach erklären du kannst nur globale Funktionen (mit eindeutigen Adressen) verwenden. Schau dir mal die funktion allocatehWnd von Delphi an.

Diese erzeugt für eine Objekt-Funktion eine eindeutige Speicheradresse.
Somit ist es möglich dass 2 Objekte (mit Fenster) initialisiert werden