ASCII #32
lazarus / 9-Editor

----------------------------------------------------------------------
LazaruX · 2008-12-10 11:50

Code: [Select][...]
procedure TForm_Main.edit_nrKeyPress(Sender: TObject; var Key: char);
begin
 if(key=#13)or(key=#32)then
  begin
   Action_.Execute;
   edit_nr.Clear;
  end;
end;  
[...]

This is part of my code, the #13 charachter (enter) is working, but
the #32 charachter (space) is not working, even if i change it like
this:

Code: [Select] if(key=#32)then


Any suggestions? Is this a bug, or what.
I need to have a respons when ENTER or SPACE are pressed.

Bye

----------------------------------------------------------------------
Leledumbo · 2008-12-10 13:10

Try printing it, e.g.:
Code: [Select]
...
begin
  ShowMessage(IntToStr(Ord(Key));
  if...
end;

----------------------------------------------------------------------
LazaruX · 2008-12-10 13:38

Hi, thanks I have solved it.
I actually have 2 semi identical parts of the program and I had coded
it behind the wrong event, this is why it never worked. The
showmessage then also didn't work, so I though there was something
wrong.
Thanks again