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