|
|
 | 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
| |
|
|