Ан нет(((
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
i: integer;
ComboBox: TComboBox;
begin
i := RadioGroup1.ItemIndex+1;
ComboBox := FindComponent('ComboBox'+IntToStr(i)) as TComboBox;
if ComboBox.Items.Count > 1 then
begin
ComboBox.Items.Delete(ComboBox.ItemIndex);
ComboBox.Text := ComboBox.Items.Strings[ComboBox.ItemIndex+1];
end
else
ShowMessage('Вы хотите удалить последнюю запись');
end;
Мне нужно, чтобы удалялась из списка строка показанная в ComboBox'е и на ее место записывалась следующая за ней строка, но когда остается последняя запись - должно предупредить. Тут получается так - удаляется строка, а при повторном нажатии кнопки УДАЛИТЬ, ничего не удаляется(( Приходится снова выделять ComboBox, тогда удаляет, почему? Как мне поступить? Заранее спасибо!