Registriert seit: 28. Feb 2009
4 Beiträge
|
Re: Tabstop & Pfeiltasten
28. Feb 2009, 12:42
Habe ich alles schon probiert...
Wenn das Formular erscheint funktioniert die Abfrage der Pfeiltasten einwandfrei -> d.h.
Motion.HandleKeyWord (siehe unten) wird mit dem TastenCode aufgerufen...
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Escape) or (Key = VK_F1) then
ToggleEStop;
case Key of
vk_F3: SetUserMode(umRun);
vk_F4: SetUserMode(umJog);
vk_F5: SetUserMode(umMDI);
end;
if (FUserMode = umJog) then
begin
Motion.HandleKeyWord(Key);
end;
Key:= 0;
end;
jetzt klickt der Benutzer in ein Radio-Control und ab dann wird die Funktion (Motion...) nicht mehr aufgerufen da das Radio-Control ja die Pfeiltasten abfängt.
|