Delphi Programming question

Is it possible to make a DBEdit field to automatically exit to the next field (like pressing tab) as soon as it is totally filled? DBASE used to do that automatically.

Answer gotten and rated:

Proposed Answer from ptiemann...
yes, it is possible :-)
You have to write some eventhandler for the OnChange event. The following code exits to the next field when you have reached 12 characters.

You may derive your own component from TDBEdit that does this automatically so you don't have to code it for each control separately.

<code snipped>

Ok, (itamar) mentioned another solution to which I ofcourse also am interested. Other opinions are also welcome.. Fire away :)
avjAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

itamarCommented:
It's similar to ptiemann's good answer, but it doesn't use Win API's. That is:

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
      With Sender as TDBEdit do begin
            if Length(Text) = Field.DataSize Then
                  ActiveControl := TWinControl(Components[ComponentIndex + 1]);
      end;
end;

TIP: This kind of code is easier to share in all DBEdit's in your form.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
avjAuthor Commented:
Wonderful, thanks. Only there is one complication I need to overcome, the field that I want to autoexit has an edit mask, which causes it to be filled with blanks up to the field max length immediately. So either I need to prevent the mask being filled with constants or to postpone the exit of the field until something is really typed in the last pos..
0
itamarCommented:
Well, I think we have another question here, or at least an increased value ;)
Anyway, did you try to uncheck the 'Save literals characters' option ?

0
avjAuthor Commented:
Save literals is unfortunately also needed in this case..

0
itamarCommented:
Couldn't it be something like that ?

>>>
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
With Sender as TDBEdit do begin
if (Length(Text) = Field.DataSize) and <ADDITIONAL TEST> Then
   ActiveControl := TWinControl(Components[ComponentIndex + 1]);
end;
end;

Where in <ADDITIONAL TEST> you could check if the last position of the text is NOT the constant of mask.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.