---

Hej

Kan jeg på et TEdits OnExit finde ud af, om der fortsættes til næste felt i
tab order, eller forrige ?

--
Med venlig hilsen / Best Regards
Michael Vilhelmsen
Remove.NoSpam from email before replaying !

---

"Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> wrote in message
news:D1%T7.471$aS.67365@news010.worldonline.dk...
> Hej
>
> Kan jeg på et TEdits OnExit finde ud af, om der fortsættes til næste felt
i
> tab order, eller forrige ?
>
> --
> Med venlig hilsen / Best Regards
> Michael Vilhelmsen

1. En procedure, der ved alle formens edit's Exit event ligger tab order i
en variable

2. En procedure/function - som alle OnEnter events kigger på.
Den sammenligner så forrige tab order (Fra punkt 1) med nuværende, derved
ved du om den er lavere eller højre

Det er mulig det kan laves smartere...

Mvh
Ulrik

---

"Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> skrev i en
meddelelse news:D1%T7.471$aS.67365@news010.worldonline.dk...
> Hej
>
> Kan jeg på et TEdits OnExit finde ud af, om der fortsættes til næste felt
i
> tab order, eller forrige ?

Dette kan bruges.

Jeg har smækket 3 stk. TEdit ind på en form og i nr. 2 OnExit skrives:

procedure TForm1.Edit2Exit(Sender: TObject);
var
NewTabOrder : integer;
begin
NewTabOrder:=ActiveControl.TabOrder;

if NewTabOrder<TEdit(Sender).TabOrder then
Showmessage('Der springes til en forrige')
else
Showmessage('Der springes til en næste');
end;

Mvh
HK