[Qwed86]

При нажатии на кнопку происходит добавление надписи в listbox, если выделить надпись и продолжать тыкать на кнопку, то будет происходить добавление новых строк, а фокус останется на первой строчке. Как бы сделать так чтобы при добавлении новой строки фокус перемещался на неё(в listbox'e)?

[:S.p.a.m.]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add('трабл');
  ListBox1.ItemIndex:=ListBox1.Count-1;
end;

[Qwed86]

Спасибо, а я искал setfocus))), думал надо прописать самому.