Opfange muse tast

Kører der et program til din mus i baggrunden hele tiden?

hvad jeg kan specificere frem til, via task manager og mscongif, er at programmerne

EM_EXEC
og
Logi_MwX

tilknyttet til musen

Prøv at oprette et nyt Delphi-projekt, og skriv følgende i formens OnKeyDown-event:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    167:
      begin
        ShowMessage('Frem');
        Key := 0;
      end;
    166:
      begin
        ShowMessage('Tilbage');
        Key := 0;
      end;
  end;
end;

Jeg ved, at browsere i hvert fald opfatter disse taster (167 og 166) som frem og tilbage.
Det ville ikke undre mig, hvis din mus (evt. gennem et af de programmer der kører i baggrunden) sender samme tastekoder :o)

desværre, men jeg må skuffe dig og meddele at det ikke virker

jeg har experimenreret lidt med følgende

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ShowMessage(IntToStr(key));
end;


når jeg trykker på de knapper jeg ønsker viser den "18", lige meget hvilket af de 2 jeg trykker på... formen reagerer derimod ikke hvis jeg trykker på de normale højre/venstre knapper

okay... mystisk... har experimenteret lidt videre og har vidst løst det

med

ShowMessage(IntToStr(key));
fik jeg hele tiden 18

nu da hvor jeg har sat følgende op

Edit1.Text := IntToStr(key);

så får jeg værdierne 37 og 39, hvilket er dem jeg skal bruge



anyways... tak for hjælpen og det tid du brugte på at hjælpe mig athlon-pascal...
du fortjener pointene alligevel

Jeg kan oplyse dig om, at 37 og 39 er henholdsvis venstre og højre piltast.
De er ikke nok i sig selv til at få browseren til at navigere frem og tilbage - alt-tasten skal være holdt nede.
Alt-tasten har værdien 18, derfor fik du den værdi :o)

Man kan tjekke om alt-tasten er hold nede på følgende måde:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) then
    // Gør et eller andet...
    ShowMessage('Alt-tasten holdes nede');
end;

Et fuldt eksempel kan derfor se ud som følgende:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) then
    case Key of
      37:
        ShowMessage('Tilbage');
      39:
        ShowMessage('Frem');
    end;
end;

Held og lykke :o)

Man kan evt. med fordel bruge de faste konstanter for piltasterne, for et bedre overblik over koden:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) then
    case Key of
      VK_LEFT:
        ShowMessage('Tilbage');
      VK_RIGHT:
        ShowMessage('Frem');
    end;
end;

Konstanterne er fastsat i Windows.pas:

const
  {$EXTERNALSYM VK_LEFT}
  VK_LEFT = 37;
  {$EXTERNALSYM VK_RIGHT}
  VK_RIGHT = 39;

Ok... tak for kode og hjælp :)