Zitat von
Hawkeye219:
Hallo MaToBe,
1. Lege eine
THotKey-Komponente (Register "
Win32") auf dein Formular, stelle bei deren Eigenschaft
InvalidKeys alle Schalter auf den Wert
False und gib der Komponente den Namen "HotKey".
genau das hatte ich vor, wusste nur nich das es bereits eine vorgefertigte Komponente gibt.
Habe es bereits so:
Delphi-Quellcode:
procedure TfPlayerSteuerung.btnFertigClick(Sender: TObject);
begin
if (edtLinks.Text <> '
')
and (edtRechts.Text <> '
')
then
begin
fMain.HotKeyRegister;
fMain.Enabled := true;
fPlayerSteuerung.Close;
end
else
ShowMessage('
Bitte legen sie die Steuerung fest.');
end;
procedure TfPlayerSteuerung.edtLinksKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
fMain.tempLeft := Key;
edtLinks.Text := inttostr(Key);
end;
procedure TfMain.HotKeyRegister;
begin
case ActualPlayerSteuerung
of
1:
begin
RegisterHotKey(
Handle, 1, 0, tempLeft);
RegisterHotKey(
Handle, 2, 0, tempRight);
end;
end;
aber deine lösung ist besser danke =)