Solved

cursor position

Posted on 2003-12-08
17
460 Views
Last Modified: 2010-04-03
i have a mask edit with the following input; 999/999/999/999 ; what i want to be able to do is that when the user presses the right or left arrow key i would like the cursor pointer to move to the next part of the maskedit, like this

user enters 1  /   /   /
then after he presses the right arrow key , supposing H is the cursor

1H /   /   /

 instead  i want the cursor to go

1   / H   /   /
then if they press left again
1   /    /H   /    and if they do it backwards i would like to the cursor to come to the previous part so
1   /   /   /H  user presses left arrow 1  /  /H   / and so on
how would this be possible? I was thinking maybe the right and left arrow keys have a control character and when they are pressed i could tell the cursor to move differently;  Hope the question was clear enough.

thanks in advance
0
Comment
Question by:itektas
  • 10
  • 7
17 Comments
 
LVL 27

Expert Comment

by:kretzschmar
ID: 9895992
maybe something like this

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_right then
    case MaskEdit1.SelStart of
      0..2 : MaskEdit1.SelStart := 4;
      4..6 : MaskEdit1.SelStart := 8;
      8..14: MaskEdit1.SelStart := 12;
    end;

  if key = vk_left then
    case MaskEdit1.SelStart of
      12..14 : MaskEdit1.SelStart := 8;
      8..10 : MaskEdit1.SelStart := 4;
      0..6: MaskEdit1.SelStart := 0;
    end;
  MaskEdit1.selLength := 1;
  key := 0;

end;

not tested on all cases


meikl ;-)
0
 

Author Comment

by:itektas
ID: 9896084
i get undeclared identifier vk_right & vk_left?
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 9896156
>i get undeclared identifier vk_right & vk_left?
ensure that windows-unit is included in the uses clause
0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 

Author Comment

by:itektas
ID: 9896240
tried to put "windows-unit" and "windows" in the uses part, but i get
[Fatal Error] Unit1.pas(7): File not found: 'Windows.dcu'
what could be wrong?
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 9896259
what delphi version do u use?
0
 

Author Comment

by:itektas
ID: 9896312
delphi 7 ; but kylix ( linux)
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 9896425
pu, kylix, must recherche
0
 

Author Comment

by:itektas
ID: 9896439
pardon? i didnt understand  =)
0
 
LVL 27

Accepted Solution

by:
kretzschmar earned 50 total points
ID: 9896462
well, ok,

the keycodes are declared in the unit qt (should be added into the uses-clause),

the constants are

Key_Left
Key_Right

so you have to replace in my sample above

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = key_right then
    case MaskEdit1.SelStart of
      0..2 : MaskEdit1.SelStart := 4;
      4..6 : MaskEdit1.SelStart := 8;
      8..15: MaskEdit1.SelStart := 12;  //i replaced here also 14 with 15
    end;

  if key = key_left then
    case MaskEdit1.SelStart of
      12..15 : MaskEdit1.SelStart := 8; //i replaced here also 14 with 15
      8..10 : MaskEdit1.SelStart := 4;
      0..6: MaskEdit1.SelStart := 0;
    end;
  MaskEdit1.selLength := 1;
  key := 0;

end;

hope it works now under linux

meikl ;-)
0
 

Author Comment

by:itektas
ID: 9896489
works perfect!  thanks mate!  Just one last question tho, the only part in this code i dont quiet understand is the last bit,  MaskEdit1.selLength := 1;
  key := 0;

what is that for?
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 9896532
>MaskEdit1.selLength := 1;
marks the digit you jump to as selected
>key := 0;
ensures that the key is not processed further

but maybe you can left it out
for kylix/linux

(have no linux -> can't test it there)

glad you like it

meikl ;-)
0
 

Author Comment

by:itektas
ID: 9896551
ok cool, it works better when i leave it =)
0
 

Author Comment

by:itektas
ID: 9898413
just a detail that i have just noticed now actually, normally in an editmask when the user enters letters nothing happens, but now when the user enters letters it appears as a space, could i add a line to change that? so that it ignores it like it does it in a normal editmask?
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 9898437
well, not looked in yet,
but you could use the onKeypressEvenet like

if key = #32 then key := #0;

looking tomorrow, if this happens also by me (at windows)

meikl ;-)
0
 

Author Comment

by:itektas
ID: 9898568
yeah i have tried something similar to that actually using the onkeypress what i had done was

procedure Tform1.MaskEdit1Keypress( Sender: TObject; var Key: char);

begin

if not (Key in ['0','1','2','3','4','5','6','7','8','9'', #8]) then

begin

Key := #0;

end;
end;

the one you said is pretty similar but didnt work either, its weird because normally editmasks never let the letters do anything, and adding this code didnt seem to solve it :/
0
 

Author Comment

by:itektas
ID: 9900938
leaving out  the    key := 0;  line from the original code seems to do the job!
0
 

Author Comment

by:itektas
ID: 9901016
actually no! that doesnt seem to solve it, i hate it when i think i solved a problem then i come across a new one! :( When i remove that line the cursor positions get mixed up, so they start in the middle of the next part instead of the beginning. I'll look again tommorow
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Convert Jpg /PNG To GIF 5 149
Delphi: Connect to running MS Outlook 4 117
Tembedded WB animatid gifs not animated on some pcs 2 83
Tvertscrollbox like a whatsapp layout 5 34
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question