Ich verstehe nicht so wirklich was du erreichen willst.
Aber wenn du auf Änderungen in einer TComboBox reagieren willst, benutze das OnChane-Ereignis.
Und hier hab ich den Code im FormKeyDown() mal aufgeräumt, bestimmt kommst du so schneller drauf.
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_Left: TrackBar1.Position := TrackBar1.Position - 1;
VK_Right: TrackBar1.Position := TrackBar1.Position + 1;
VK_Up:
begin
ComboBox1.ItemIndex := ComboBox1.ItemIndex - 1;
ComboBox1Change(Sender);
end;
VK_Down:
begin
ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1;
ComboBox1Change(Sender);
end;
end;
end;
Um ein TWinControl nicht anwählbar zu machen musst du die Eigenschaft TabStop auf false setzen.