---

Jeg har lavet et program, hvor det er uhensigtmæssigt, at computeren
automatisk gentager et bogstav, når tasten holdes nede, hvilket kan ske, da
programmet er lavet til brug af børn.
Findes der en kommando, som kan aflyse denne funktion ved programmets start
og etablere den igen, når programmet afsluttes.
Venlig hilsen
Bent.

---

Friday 29 October 2004 16:56 sagde Bent Aage Larsen noget à la dette i
dk.edb.programmering.pascal:

> Jeg har lavet et program, hvor det er uhensigtmæssigt, at computeren
> automatisk gentager et bogstav, når tasten holdes nede, hvilket kan
> ske, da programmet er lavet til brug af børn.
> Findes der en kommando, som kan aflyse denne funktion ved programmets
> start og etablere den igen, når programmet afsluttes.

Som en forholdsvist ny programmør har jeg en outside-the-box løsning:
Du kan lave en OnKeyPress event handler der annulerer tastetrykket, og
så lave en OnKeyDown event handler der indsætter det tegn der er
trykket på. På den måde undgår du automatisk gentagelse.
Nu er det et stykke tids siden jeg sidst har haft Delphi mellem
fingerene, så jeg har ikke lige en kode du kan bruge. Men det dér er
det jeg ville have gjort .
--
Mvh. Mathias | @: mathias
Registrered Linux user #369699 (http://counter.li.org) @ mrside
"Linie" er ukorrekt dansk... Underligt, ikke? .dk

---

"Bent Aage Larsen" <b.aa.larsen@webspeed.dk> skrev i en meddelelse
news:41825a30$0$190$edfadb0f@dread11.news.tele.dk...
> Jeg har lavet et program, hvor det er uhensigtmæssigt, at computeren
> automatisk gentager et bogstav, når tasten holdes nede, hvilket kan ske,
> da programmet er lavet til brug af børn.
> Findes der en kommando, som kan aflyse denne funktion ved programmets
> start og etablere den igen, når programmet afsluttes.
> Venlig hilsen
> Bent.

Hej Bent

Problemet kan løses sådan her:

var KeyPressed: Boolean; {Global}

{Som eksempel har jeg brugt en TMemo, men det kunne selvfølgelig også godt
være en TForm, hvor KeyPreview := True}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if KeyPressed then
Key := #0;
KeyPressed := True;
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
KeyPressed := False;
end;

Håber du kan bruge det!

Med venlig hilsen
lap[4800]

---

Tak for hjælpen. Det virker fortræffeligt.
Venlig hilsen
Bent.

"Bent Aage Larsen" <b.aa.larsen@webspeed.dk> skrev i en meddelelse
news:41825a30$0$190$edfadb0f@dread11.news.tele.dk...
> Jeg har lavet et program, hvor det er uhensigtmæssigt, at computeren
> automatisk gentager et bogstav, når tasten holdes nede, hvilket kan ske,
> da programmet er lavet til brug af børn.
> Findes der en kommando, som kan aflyse denne funktion ved programmets
> start og etablere den igen, når programmet afsluttes.
> Venlig hilsen
> Bent.
>