-
[S] Shift Taste abfangen
Erstmal schön wieder hier zu sein, so meine Frage: Ich möchte mit einer OnKeyDown Prozedur die Shift Taste abfangen mein Code sieht folgendermaßen aus:
Code:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift=[ssshift]) then begin
ShiftTaste:=True;
ShowMessage('funzt');
end;
end;
ein Syntaxfehler liegt nicht vor aber es paasiert einfach nichts, wo liegt der fehler?
-
-
Du hast Recht auch wenn ich die Message vor die Verzweigung setze passiert nichts, weiß jemand woran das liegen könnte?
-
Ganz einfach...schau doch mal ob die procedure überhaupt aufgrufen wird...
-
Kann es ein dass Delphi 7 mit Vista Probleme hat ich hatte nämlich auch schon andere scheinbar unerklärliche Probleme?!
\EDIT Hab jetzt mal Delphi 2005 Personal installiert aber das Problem beseht weiterhim, die Prozedur wird nicht aufgerufen =(
-
versuchs einfach mit nem keyboardhook
-
mach bei deiner mainform die eingenschaft KeyPreview auf true (findest du im objekteditor), dann sollte es gehen...
-
Sollte es immernoch nicht gehen, starte es unter Kompatibilität XP und als Admin.
Sollte es dann immernoch nicht gehen schreibe deinen Quelltext hier rein:
http://nopaste.free-hack.com/
und poste den link hier
-
mit KeyPreview auf true funktioniert es
thx@all