/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Hvordan skifter man mellem TCombobox
Fra : Kurt G


Dato : 25-12-06 14:10

Jeg har nogle Tcomboboxe, som jeg i øjeblikket skifter mellem ved hjælp af
tabulator.
Jeg vil gerne, at jeg kan skifte på samme måde ved hjælp af Enter.
Kan man det og hvordan?

Mvh Kurt



 
 
Harald (25-12-2006)
Kommentar
Fra : Harald


Dato : 25-12-06 17:50

"Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
news:458fcd92$0$49208$14726298@news.sunsite.dk...
> Jeg har nogle Tcomboboxe, som jeg i øjeblikket skifter mellem ved hjælp af
> tabulator.
> Jeg vil gerne, at jeg kan skifte på samme måde ved hjælp af Enter.
> Kan man det og hvordan?


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
wincontrol : TWincontrol;
begin
if key=#13 then
begin
wincontrol:=FindNextControl(Activecontrol,true,true,false);
wincontrol.setfocus;
key:=#0;
end;
end;

Brug evt. formens OnKeyPress og sæt KryPreview=true

/HK



Kurt G (26-12-2006)
Kommentar
Fra : Kurt G


Dato : 26-12-06 09:04

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:4590014d$0$15887$edfadb0f@dtext01.news.tele.dk...
> "Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:458fcd92$0$49208$14726298@news.sunsite.dk...
>> Jeg har nogle Tcomboboxe, som jeg i øjeblikket skifter mellem ved hjælp
>> af tabulator.
>> Jeg vil gerne, at jeg kan skifte på samme måde ved hjælp af Enter.
>> Kan man det og hvordan?
>
>
> procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
> var
> wincontrol : TWincontrol;
> begin
> if key=#13 then
> begin
> wincontrol:=FindNextControl(Activecontrol,true,true,false);
> wincontrol.setfocus;
> key:=#0;
> end;
> end;
>
> Brug evt. formens OnKeyPress og sæt KryPreview=true
>
> /HK

Det virker perfekt.
Tak.
/Kurt



Søg
Reklame
Statistik
Spørgsmål : 177577
Tips : 31968
Nyheder : 719565
Indlæg : 6409071
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste