ASCII #32

[LazaruX]

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]

Try printing it, e.g.:

Code: [Select]


...
begin
  ShowMessage(IntToStr(Ord(Key));
  if...
end;


[LazaruX]

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