Also der Titel sagt schon, dass meine Komponente zwar auf vk_next (bild ab) reagiert, aber nicht auf vk_down.
Warum? Was ist an der Taste anders?
Delphi-Quellcode:
type
Tgliste2 = class(TCustomControl)
...
procedure Tgliste2.KeyDown (var Key: Word; Shift: TShiftState);
begin
inherited;
//Komponente kriegt sonst keinen Focus
if not focused then
begin
parent.Setfocus;
self.SetFocus;
end;
if assigned(OnKeyDown) then OnKeyDown(key,Shift);
case key of
vk_up : Runterscrollen;
vk_down : Raufscrollen;
vk_next : Runterscrollen;
vk_prior: Raufscrollen;
end;
end;
Codito, ergo sum. - I code therefore I am