03. april 2004 - 00:09Der er
4 kommentarer og 1 løsning
Blev der trykket på Shift ?
Jeg bruger denne til at vise hvilken tast der blev trykket:
procedure TForm1.SynEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage(IntToStr(Key)); if Key = 32 then ShowMessage('Space'); end;
Hvordan undersøger jeg om Shift blev holdt nede ved tryk på [SPACE]. ??
if(Shift) { ShowMessage("Der blev stykket Shift OG space"); }
???
Synes godt om
Slettet bruger
03. april 2004 - 00:36#2
Prøv med det her:
procedure TForm1.SynEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage(IntToStr(Key)); if ((Key = 32) and (ssShift in Shift)) then ShowMessage('Space'); end;
dog kan der være probs. hvis man trykker lidt hurtigt.
forsøgte med Shift+A, Ved hurtigt tastetryk blev der skrevet A (med stort) men shift blev ikke fanget af funktionen ??
Bruger den dog alligevel.. Tak
Synes godt om
Slettet bruger
03. april 2004 - 00:56#4
Hvis det også skal virke med alle taster+Shift skal du bare skrive
procedure TForm1.SynEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage(IntToStr(Key)); if ssShift in Shift then ShowMessage('Shift blev holdt nede'); end;
Har forsøgt denne metode men med samme prob. som 00:47.
Tak for hjælpen
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.