Using KeyPress event, how to get subsequent key presses?

[new2thisagain395]

In a TMemo, during the KeyPressed event how do you get the key pressed to be "disposed of" (or dropped is maybe a better term) once you do what you want with it, so that the next keystroke can be captured?  I'm using this event code:

Code: [Select]

procedure TSCU.Memo1KeyPress(Sender: TObject; var Key: char);
var
  DateString: string;
  TimeString: string;
  InReadPW:   boolean = false;
  R:          Longint;

begin
     KeyPressed := UpCase(Key);
                                             
and while it reads the first key pressed, subsequent key presses leave KeyPressed stuck at the first character that was typed (viewing in the Watch window while debugging).  Once I grab that key (I am adding it to a buffer) how do I get the next key pressed to be captured by this function?

[jamie]

Code: Pascal  [Select][+][-]

1. procedure TSCU.Memo1KeyPress(Sender: TObject; var Key: char);
2. var
3.   DateString: string;
4.   TimeString: string;
5.   InReadPW:   boolean = false;
6.   R:          Longint;
7.  
8. begin
9.      KeyPressed := UpCase(Key);
10.                                              
11.  

You don't stay in this event, you allow it to exit, the next key you press will trigger this event again.
you need to use an external buffer to this event.

[Joanna from IRC]

Would it be better to use keydown event instead for this?

[Zvoni]

Would it be better to use keydown event instead for this?

rather KeyUp
KeyDown fires permanently, when you hold a key down.
KeyUp only fires once per "Key-Press"

[alpine]

*snip*
and while it reads the first key pressed, subsequent key presses leave KeyPressed stuck at the first character that was typed (viewing in the Watch window while debugging).  Once I grab that key (I am adding it to a buffer) how do I get the next key pressed to be captured by this function?

I'm not experiencing that behavior with TMemo.OnKeyPress, probably your problem lies somewhere else.

Lazarus 2.2.4 (rev lazarus_2_2_4) FPC 3.2.2 x86_64-linux-gtk2

[Bart]

In a TMemo, during the KeyPressed event how do you get the key pressed to be "disposed of" (or dropped is maybe a better term) once you do what you want with it

Set Key to #0.

Bart

[Joanna from IRC]

Would it be better to use keydown event instead for this?

rather KeyUp
KeyDown fires permanently, when you hold a key down.
KeyUp only fires once per "Key-Press"

Interesting, so the key up event isn’t too late to set the key to #0 ?

[Zvoni]

Would it be better to use keydown event instead for this?

rather KeyUp
KeyDown fires permanently, when you hold a key down.
KeyUp only fires once per "Key-Press"

Interesting, so the key up event isn’t too late to set the key to #0 ?

Depends on the use-case.
Just create all three events and put some Writeln's in.
You'll see what's "on time" and what's too late

[KodeZwerg]

I also suggest KeyUp event for logging a released key, if its just pure character keys you are hunting at, eg for some undo, you could also use OnChange from TMemo by logging position and the change, ie insert/remove/replace action ...