[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 196
  • Last Modified:

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 :)
0
avj
Asked:
avj
  • 3
  • 2
1 Solution
 
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
 
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

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now