Få et taste tryk til kun at gælde i FormKeyDown
Med FormKeyDown kan man få sit program til at udføre forskellige handlinger ved at trykke på en knap. indtil videre har jeg kun brugt det i forbindelse med funktionsknapperne og der virker det fint.Men så fik jeg lyst til at bruge plus og minus på det numeriske tastatur til at bladre op og ned i nogle værdier.
Værdierne bladrer skam også op og ned som de skal, men hvis skrive markøren står i et TEdit så kommer der et plus tegn eller et minus tegn frem. Jeg har prøvet at afslutte rutinerne med et Key := 0; men det hjælper ikke.
procedure TForm27.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_Add : begin
PladeNr.Text := IntToStr(StrToInt(PladeNr.Text) + 1);
PladeNrExit(Sender);
Key := 0;
end;
VK_Subtract : begin
PladeNr.Text := IntToStr(StrToInt(PladeNr.Text) - 1);
PladeNrExit(Sender);
Key := 0;
end;
VK_F1 : Figur61.Help.Vis(27);
VK_F2 : RetClick(Sender);
... etc.
end;
end;
Hvad gør man for at tastetrykket ikke kommer længere end til mit FormKeyDown event?
