This works for me:
Code:Form1.Keypreview:=true; procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); begin memo1.Lines.Add(key); // key will automatically be in caps/non caps end;
This works for me:
Code:Form1.Keypreview:=true; procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); begin memo1.Lines.Add(key); // key will automatically be in caps/non caps end;
Although I am not using delphi/lazarus here its just plain pascal.... So what units do you use to make that work? I might be able to take a look at the source and take what I need. Cheers for such a simple solution though.
I once tried to change the world. But they wouldn't give me the source code. Damned evil cunning.
Is this cross platform, or could you just use the Windows API?
User137's solution involves using Delphi's VCL etc, the units Forms and I think Standard Controls (plus the units they use, so and so forth) would be the minimum, probably overkill for what you need.
Actually Lazarus VCL to be precise. Compiler should be smart enough to only compile with those classes and functions that are actually used. I'm quite happy with 1Mb executable size with larger graphical projects, and that's before UPX pack.
As for the problem i don't know what key events are used for it. You might have some chance with checking if Shift key is held. Checking for Caps lock needs some crossplatform function which maybe Freepascal has. WinAPI maybe but that's Windows-only.
Edit: By shift i mean, 'A' is code 65 and 'a' is 97. Basically if shift is held, then reduce 32 from ascii value. This will not work with any other characters than A..Z.
Last edited by User137; 14-03-2011 at 11:43 AM.
Chesso: Yes, this is cross platform so windowze API is no go, especially since I don't use windowze...
User137: Yes, I am looking at doing a -32 on a-z keys automatically, but does it also work with caps, backspace and num lock?
I've had no luck at all getting it to work. So I guess there is no sdl function to do this? Or does anyone have an engine that has that functionality integrated (open source please)? I don't use lazarus so my plain fpc install wont have the VCL. My executable size is already knocking on 800k due to all the libs I'm using.
cheers,
code_glitch.
I once tried to change the world. But they wouldn't give me the source code. Damned evil cunning.
Lazarus seems to use CN_CHAR message for onKeyPress. Look up TWinControl in controls.pas and wincontrol.inc.
TWinControl.CNChar() sends to DoKeyPress(). Seems pretty complicated process to me and there was no documentation for CN_CHAR.
Backspace is very simple... if key number is VK_BACK then text:=copy(text,1,length(text)-1);
At least if not allowing cursor moving to the middle of text, or selecting part of text. I'm afraid for graphical application all funtionality of TEdit has to be coded by self.
If you can simulate onKeyPress event by some means there is some hints from my UI class:
Code:// note: caretPos is a property with built in limitations to value range. procedure TUIEdit.KeyPress(c: char); var l: integer; begin if byte(c)>31 then begin FText:=UTF8toSys(FText); l:=length(FText); SetText(SysToUTF8(copy(FText,1,caretPos)+c+copy(FText,caretPos+1,l-caretPos))); caretPos:=caretPos+1; end; end; procedure TUIEdit.KeyDown(key: word; shift: TShiftState); var l,p: integer; begin l:=length(text); case byte(key) of VK_LEFT: caretPos:=caretPos-1; VK_RIGHT: caretPos:=caretPos+1; VK_HOME: caretPos:=0; VK_END: caretPos:=l; VK_DELETE: if (caretPos<l) and (l>0) then begin FText:=UTF8toSys(FText); SetText(SysToUTF8(copy(text,1,caretPos)+copy(text,caretPos+2,l-caretPos))); end; VK_BACK: if caretPos>0 then begin p:=caretPos; caretPos:=caretPos-1; FText:=UTF8toSys(FText); SetText(SysToUTF8(copy(text,1,p-1)+copy(text,p+1,l-p))); end; VK_RETURN: Focused:=false; end; end;
Last edited by User137; 14-03-2011 at 07:00 PM.
Thanks for those, will start implementing it all in my code as soon as I can... A little pressed for time recently, but its nice to get all solutions done so they are ready to be implemented the next time I get some time.
I once tried to change the world. But they wouldn't give me the source code. Damned evil cunning.
Bookmarks