Forum: Win32/Win64 API (native code)
by cramer,
21. Okt 2010
Schon mal Danke für die Tips.
zu Tip 1.
Wenn ich bei Key eine 17 (myDebug SuchenKeyDown = 17) zurückbekomme,
MyDebug('SuchenKeyDown = ' + intToStr(key));
.
wird ein Vergleich
if (Key = ord('A')) ...
.
wohl auch nichts bringen, weil IMO das A = chr(65) ist.
Forum: Win32/Win64 API (native code)
by cramer,
18. Okt 2010
Ich möchte, wenn der Focus auf dem Eingabefeld "Suchen" liegt und dort AltGr-A getippt wird, eine Suche nach einer Adresse starten.
Ich bekomme zwar AltGr mit, nicht aber die folgende Taste z.B. das "A" bei gedrückter AltGr Taste.
So siehts in etwa aus:
procedure TWV.SuchenKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
busy;
MyDebug('SuchenKeyDown = ' +...