Hi, danke für diese - wie immer (seit 13 Jahren) - schnelle Antwort.
Hätte ich gewusst, dass man das so abfragen kann, hätte ich es vllt auch so aufgeschrieben
Eine Sache gibt es noch: ich kenn mich mit KeyDown nicht aus und in den Nachrichten erhalte ich den Hinweis:
Zitat:
unit1.pas(81,28) Error: Incompatible types: got "Char" expected "LongWord"
... bei diesem Code:
Code:
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: word;
Shift: TShiftState);
begin
if Key = Char(VK_RETURN) then begin
i := ComboBox1.Items.IndexOf(ComboBox1.Text);
if i >= 0 then
ComboBox1.ItemIndex := i;
end;
end;
Was ist da das Problem?