Forum: Win32/Win64 API (native code)
Delphi
by cookie22,
18. Apr 2009
wieso kann man die sache dann so abfangen?
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;
Forum: Win32/Win64 API (native code)
Delphi
by cookie22,
18. Apr 2009
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.
Forum: Win32/Win64 API (native code)
Delphi
by cookie22,
18. Apr 2009
das die message genauso behandelt wird wie in TApplicationEvents und die eingabe nicht im edit ankommt, jenachdem was die auswertung von GetMessageExtraInfo ergibt.
Forum: Win32/Win64 API (native code)
Delphi
by cookie22,
18. Apr 2009
wenn ich auf der mainform eine TApplicationEvents kompo platziere, und folgenes mache geht das auch.
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;
Forum: Win32/Win64 API (native code)
Delphi
by cookie22,
18. Apr 2009
hallo,
ich möchte zwei messages abfangen und nicht zu meinem edit durchlassen, wie kann ich das weiter geben der nachricht verhinden.
procedure TEdit.WndProc(var msg: TMessage);
begin
case Msg.Msg of
WM_KEYUP, WMKEYDOWN:
begin
// Was muss ich hier tun?