combobox 自动下拉后找不到鼠标

Question

combobox 
动态变化items的值后让其自动下拉
自动下拉后找不到鼠标

Answer 1

procedure TForm1.ComboBox3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Str  : string;
  i : integer;
begin
  ComboBox3.Items.Clear;
  for i:= 0 to 5 do
     ComboBox3.Items.Add(ComboBox3.Text+'a');
  Str := ComboBox3.Text;
  ComboBox3.DroppedDown := true;
   ComboBox3.Text := Str;
  ComboBox3.SelStart := length(ComboBox3.Text);
end;

Answer 2

那你把这段代码写在OnKeyDown或OnKeyPress试一试

Answer 3

在keydown，和keypress中 combobox的text的值还没有改没有改变
ComboBox3.Items.Add(ComboBox3.Text+'a');
得到到是按键前的值加上‘a’

Answer 4

而且很不明白在keyup中vcl做了什么为什么会出现鼠标找不到情况

Answer 5

鼠标的图标不见了，在整个form上都是，只有出了form才能看到鼠标的图标

Answer 6

你把我得语句贴到keyup事件中执行看看就明白了

Answer 7

no proplem as only as press return the cursor show again this is a focos causal.