/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
technet
210
10
jdjespers..
200
Frem eller tilbage
Fra :
Michael Vilhelmsen
Dato :
19-12-01 12:41
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 !
Ulrik Vadstrup (
19-12-2001
)
Kommentar
Fra :
Ulrik Vadstrup
Dato :
19-12-01 20:57
"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
Harald (
19-12-2001
)
Kommentar
Fra :
Harald
Dato :
19-12-01 22:44
"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
Søg
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408925
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.