Keypresses

[asdfarkangel]

Thanks altough I never used those compilers before I will really look at how they work if I get back but now I'm at home my comp is at the student-hostel and I don't want to fill mom's comp with pascal stuff I use free pascal so those Delphi functions won't help me out but thanks anyways.

[Carver413]

Thanks although I never used those compilers before I will really look at how they work if I get back but now I'm at home my comp is at the student-hostel and I don't want to fill mom's comp with pascal stuff I use free pascal so those Delphi functions won't help me out but thanks anyways.

those are not delphi functions they are const. and you can use that chart to define them in free pascal

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const
VK_UP = $26;
begin
if key = VK_UP then LoggerUnit.Logger.Msg('Up Key');
end;

this works just fine in lazarus, minus the LoggerUnit which is my own code. those const are probable defined some where in lazarus but I don't have a clue where. in delphi I think that they are part of the win unit. just because you are using free pascal you shouldn't discard everything delphi. most code can be made to work on lazarus and there is a wealth of information out there for delphi. even old delphi books can be of use to you

[User137]

const
    VK_UP = $26;
begin
  if key = VK_UP then ...

Tip: You can add Lcltype in uses clause of your Lazarus project, all virtual keycodes such as VK_UP, VK_ESCAPE are there in cross-platform way.

[Carver413]

Tip: You can add Lcltype in uses clause of your Lazarus project, all virtual keycodes such as VK_UP, VK_ESCAPE are there in cross-platform way.

Thanks for that, I knew it was probable in there somewhere. one can get lost digging through all that code and still not find what your looking for.

[asdfarkangel]

Oh well thanks all of you. Writing a Biology test at university today but I will experiment with these functions a little when I'm done with that. Interesting when I learn programming, instead of memorizing syntaxes and procedure/function names and following methods, I just start writing something to experiment with it. I look it up in google if I need a func. or proc. see the syntaxes and correct methodical errors and I learn a lot easier this way. I can not imagine for example that I could have learnt the useage of binary files by just reading the book, and then I would have been able to use it correctly instantly. Altough for my programs written this way in the end I often find out there was a lot lot more easier way. Well often means almost always xD

[deathshadow]

vk_ constants are also in the WINDOWS unit. If you are using SDL, there are the SDLK_ constants which are identical in value to the vk_ ones.

[Brainer]

You can also use GetAsyncKeyState or GetKeyboardState from the Windows API. Here're the links, respectively: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx, http://msdn.microsoft.com/en-us/libr...99(VS.85).aspx