hallo,

ich möchte zwei messages abfangen und nicht zu meinem edit durchlassen, wie kann ich das weiter geben der nachricht verhinden.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TEdit.WndProc(var msg: TMessage);
begin
  case Msg.Msg of
    WM_KEYUP, WMKEYDOWN:
    begin
      // Was muss ich hier tun?
    end
    else
      inherited WndProc(msg);
  end;
...
end;

was muss ich hier tun damit die eingaben nicht in meinem edit ankommen.

MfG,
cookie

Moin,

wenn Du gar keine Eingabe erlauben willst solltest Du ReadOnly vom TEdit auf True setzen.
Willst Du nur bestimmte Tasten filtern, dann mußt Du WM_CHAR abfangen.

Zitat von cookie22:

// Was muss ich hier tun?

In der Konstelation, wie Du das machst, gar nix

wenn ich auf der mainform eine TApplicationEvents kompo platziere, und folgenes mache geht das auch.

markieren

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (msg.message = WM_KEYDOWN) or (msg.message = WM_KEYUP) then
    if GetMessageExtraInfo = 200 then
      handled := True;
end;

das muss doch auch in der kompo selbst möglich sein.

Was möchtest du denn erreichen?

das die message genauso behandelt wird wie in TApplicationEvents und die eingabe nicht im edit ankommt, jenachdem was die auswertung von GetMessageExtraInfo ergibt.

Ich weiß jetzt grad nicht, wann da GetMessageExtraInfo den Wert 200 liefert, aber ich habs mit keybd_event simuliert und da funkt dann folgende Zeilen:

zusammenfalten · markieren

Delphi-Quellcode:

...
private
  IgnoreMe:Boolean;
...

procedure TEdit.WndProc(var Message:TMessage);
begin
   Case Message.Msg of
      WM_CHAR: If IgnoreMe then begin
                  IgnoreMe:=False;
                  Exit;
               end;
      WM_KEYDOWN: If GetMessageExtraInfo=200 then IgnoreMe:=True;
   end;

   inherited WndProc(Message);
end;

200 war da nur n beispiel, GetMessageExtraInfo gibt im allgemeinen 0 wieder, ausser du markierst es selbst.

ich dachte wenn ich WM_KEYDOWN und WM_KEYUP irgendwie behandele brauche ich WM_CHAR garnicht abfangen. Aber so müste es auch gehen.

WM_CHAR wird durch TranslateMessage gepostet, also bevor die WM_KEYDOWN-Nachricht zum Edit gelangen konnte.

wieso kann man die sache dann so abfangen?

markieren

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (msg.message = WM_KEYDOWN) or (msg.message = WM_KEYUP) then
    if GetMessageExtraInfo = 200 then
      handled := True;
end;

oder versteh ich da was nicht richtig?

Schau mal in Forms.TApplication.ProcessMessage:

zusammenfalten · markieren

Delphi-Quellcode:

Handled := False;
if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
if not IsPreProcessMessage(Msg) and not IsHintMsg(Msg) and
  not Handled and not IsMDIMsg(Msg) and
  not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
begin
  TranslateMessage(Msg);
  if Unicode then
    DispatchMessageW(Msg)
  else
    DispatchMessage(Msg);
end;