перетаскивание информации из StringGrid1 в StringGrid2 Delphi 7

[carrie bradshaw]

привет всем активным участникам форума. помогите, пожалуйста, написать программу на Delphi 7.

делаю перетаскивание информации с помощью мыши. проще всего делать перетаскивание из тех компонентов, для которых однозначно ясно, что именно перетаскивать. для этого устанавливаем у источника DragMode=dmAutomatic, а у приемника пишем оброботчики событий OnDragOver - разрешение на прием, OnDragDrop - действия, производимые при окончании перетаскивания.

перетаскивать нужно из StringGrid1 в StringGrid2.
вот код:

procedure TForm109.StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 accept:=Source =StringGrid1;
end;
 
procedure TForm109.StringGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var acol,arow:integer;
begin
stringgrid2.MouseToCell(x,y,acol,arow);
stringgrid2.cells[acol,arow]:=edit1.Text;
end;

и ещё напишите, пожалуйста, как сделать заполнение StringGrid1 только цифрами?

всем спасибо за внимание и помощь!

[Utkin]

как сделать заполнение StringGrid1 только цифрами?

Нужно отслеживать данные при вводе. Для этого можно либо использовать Val, либо отлавливать исключения для StrToInt, StrToFloat и прочих функций перевода из строки в число. Вариант 2 - отслеживать нажатия клавиш и просто не давать вбивать все что отличается от числа.

Касательно первого вопроса - Вы переносите полностью таблицу или только ячейку? Тут нужно подумать - фактически нужно отловить момент перетаскивания. Дальше перекопировать ячейку/таблицу можно с помощью простеньких процедур.

[Аватар]

DragMode=dmManual у обоих гридов.

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var xCol,xRow: Integer;
begin
  StringGrid1.MouseToCell(X,Y,xCol,xRow);
  if (xCol>=StringGrid1.FixedCols) and (xRow>=StringGrid1.FixedRows) then StringGrid1.BeginDrag(False);
end;

procedure TForm1.StringGrid2DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
var xCol,xRow: Integer;
begin
  Accept:=(Source=StringGrid1) and (StringGrid1.Col>=StringGrid1.FixedCols) and (StringGrid1.Row>=StringGrid1.FixedRows);
  if Accept then begin
    StringGrid2.MouseToCell(x,y,xCol,xRow);
    Accept:=(xCol>=StringGrid2.FixedCols) and (xRow>=StringGrid2.FixedRows);
  end;
end;

procedure TForm1.StringGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var xCol,xRow: Integer;
begin
  if Source=StringGrid1 then begin
    StringGrid2.MouseToCell(x,y,xCol,xRow);
    StringGrid2.Cells[xCol,xRow]:=StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  end;
end;