öhm... du willst den key "abfangen".
Heisst das auch "unterdrücken"?
Und im übrigen passt GetAsyncKeyState ( ja, <0 stimmt) so gar nicht zum event-driven model.... fang lieber OnKeyDown ab. falls das genau das ist, was du tust:
Delphi-Quellcode:
procedure TForm1.OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_S) and ((GetAsyncKeyState(VK_MENU) < 0) or (ssAlt in Shift)) then //man beachte das or!
ShowMessage('Alt+S gedrückt!');
end;
Solls so sein? oder bist du in einem loop?
Zeig mal ein bisschem mehr Code.
@SirT: Irrelevant. <0 geht auch.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1