[antikhrist]

Доброго времени суток! Уважаемые господа, помогите с некоторыми вопросами с DbGrid.
1. Прокрутка добавляется сама автоматически или где-то указываеться в свойствах самого Dbgrid'a?
2. Как програмно удалить запись (строку) из Dbgrid'a с возжностью потом её повесить на кнопку?
3. Как перемещать(!!!!) из одного Dbgrida во второй Dbgrid конкретно выбранную запись
Вот пример кода в котором добавляеться запись в конец списка, а при нажатии кнопки первая запись в списке 1-го grida переходит в следующий (во 2-й)

Код:

procedure TForm1.N11Click(Sender: TObject);
var s:String;
begin
  s:=InputBox('Машина прибыла','Номер машины','');
  if s<>'' then begin
   ADOTable1.Last;
   ADOTable1.Insert;
   ADOTable1.FieldByName('number').AsString:=s;
   ADOTable1.FieldByName('pos').AsInteger:=1;
  end;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
 ADOTable1.First;
 ADOTable1.Edit;
 ADOTable1.FieldByName('pos').AsInteger:=ADOTable1.FieldByName('pos').AsInteger+1;
try  ADOTable1.Requery;except end;
try  ADOTable2.Requery;except end;
try  ADOTable3.Requery;except end;
try  ADOTable4.Requery;except end;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
 ADOTable2.First;
 ADOTable2.Edit;
 ADOTable2.FieldByName('pos').AsInteger:=ADOTable2.FieldByName('pos').AsInteger+1;
    try  ADOTable1.Requery;except end;
    try  ADOTable2.Requery;except end;
    try  ADOTable3.Requery;except end;
    try  ADOTable4.Requery;except end;
end;

Помогите плиз!!!

[Aristarh Dark]

1. Вертикальная - всегда, горизонтальная - в зависимости от ширины колонок, если влазят то ее нет.
2 и 3 вопросы к DBGrid'у отношения не имеют.