Выделение несколько строк в DBGrid

[Blood_ghosT]

Доброго времени форумчане!!
Не подскажите как реализовать выделение несколько строк с помощью мыши DBGrid и выделенные строки копировать в другой DBGrid!
MultiSelect работает только с клавиатурой, сам не могу решить данную проблему!Именно надо с помощью мыши!!
За ранее спасибо!

[Аватар]

Клавиша Ctrl и левая кнопка мыши. При вставке выделенных записей в другой грид используйте свойство SelectedRows первого грида

[Blood_ghosT]

А ни как нельзя без участия клавиатуры. Например на неделю клава не работает и придется работать только при помощи мыши!!И желательно без сторонних компонентов!

Вот код:

procedure TfrmWarehouse.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if dbgfrmWarehouse.SelectedRows.Count>0 then
    with dbgfrmWarehouse.DataSource.DataSet do
      for i:=0 to dbgfrmWarehouse.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(dbgfrmWarehouse.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

Но к сожаления я не смог применить данный код на DBGrid и на мышь, уже голова не варить!
Помогите пожалуйста!

[Аватар]

Мышью вы выделяте. Как без Ctrl не знаю. Чем Button не подходит? Выделили, той же мышью Button кликнули. С GotoBookmark правильно сделали. Записывать данные нужно в DataSet второго грида - вставить запись (Append), поместить в поля данные из полей записи исходного DataSet и Post.

[Blood_ghosT]

Сообщение от Аватар

Мышью вы выделяте.

Мышью я выделяю только одну строчку. Я бы хотел как и в ListBox когда поставишь галочку на MultiSelect! Выделяешь первую строчку и тяни до последний и ты выделишь все строчки. Точно так же я и хотел!!

Чем Button не подходит? Выделили, той же мышью Button кликнули. Записывать данные нужно в DataSet второго грида - вставить запись (Append), поместить в поля данные из полей записи исходного DataSet и Post.

Button останется, я хотел как и в первом примере вставка в ListBox переменной s! Чтобы все что храниться в s вставить в DBGrid1. А насчет (Append) я это знал но просто надо будет прописывать все строчки и получиться большой код!!
Но все равно Спасибо!

Вот код:

procedure TfrmWarehouse.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if dbgfrmWarehouse.SelectedRows.Count>0 then
    with dbgfrmWarehouse.DataSource.DataSet do
      for i:=0 to dbgfrmWarehouse.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(dbgfrmWarehouse.SelectedRows.Items[i]));
       { for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;}
        DBgrid1.DataSource.DataSet.Append;
        DBgrid1.DataSource.DataSet.FieldByName('Idtovar').AsInteger:=dbgfrmWarehouse.DataSource.DataSet.FieldByName('Idtovar').AsInteger;
        DBgrid1.DataSource.DataSet.FieldByName('Naimenov').AsString:=dbgfrmWarehouse.DataSource.DataSet.FieldByName('Naimenov').AsString;
        DBgrid1.DataSource.DataSet.Post;
        //Listbox1.Items.Add(s);
        //s:= '';
      end;
end;

И я попробывал без этого участка кода вроде все работает получаеться он лишний??

{ for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;}

И еще мне пришлось создать таблицу и к ней подключит ADOQuery=>DataSource! Без этого код не работал! Может я неправильно сделал!
И я бы хотел что бы ADOQuery просто хранил в себе выполненный запрос без подключения к какой либо таблице!

[Аватар]

И я бы хотел что бы ADOQuery просто хранил в себе выполненный запрос без подключения к какой либо таблице!

В качестве DataSet второго грида можно использовать в таком случае TClientDataSet. В дизайне набросать в него фиелдов и активизировать метом CreateDataSet. Будет работать без всякой привязки к СУБД.

Я бы хотел как и в ListBox когда поставишь галочку на MultiSelect! Выделяешь первую строчку и тяни до последний и ты выделишь все строчки.

Скорее всего возможно, но прийдется конкретно разобраться с внутренностями DBGrid, переопределить его методы, реализовать свои обработчики сообщений винды. Короче заморочка еще та, никогда не задавался такой целью

[Blood_ghosT]

Спасибо за помощь Аватар!!!!