Tasten abfangen und ersetzen?? T.T

[A-M-X]

also

geht ned ^^

Delphi-Quellcode:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = iHotKeyStrgT then
   Timer1.Enabled := true;
  if Msg.HotKey = iHotKeyStrgToff then   //<--- des alles was anderes
   Timer1.Enabled := false;

 KeysPressed := KeysPressed + msg.hotkey; // <-- Inkompatible Typen : String u. Integer

  // Schleife... und

  if (pos (KeysPressed, MeineZeichen.Strings[i]) = 1) then //<-- undefinierter bezeichner "i"
   begin
    if (Length (KeysPressed) = MeineZeichen.Strings[i].Count) then
     begin
      // Taste ersetzen
     end;
   end;
end;