Drag and Drop

[Keldorn]

probier mal folgendes:

Ereignis dragover im richedit, damit wird das drag von einem Grid akzeptiert

Delphi-Quellcode:

procedure TForm1.RichEdit2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept:=source is TStringGrid;
end;

und

und im Dragdrop beim richeidt

Delphi-Quellcode:

procedure TForm1.RichEdit2DragDrop(Sender, Source: TObject; X, Y: Integer);
Var grid:TStringGrid;
    Richedit:TRichEdit;
begin
  if Source is TStringGrid then
    begin
      grid:=source as TStringGrid;
      Richedit:=sender as TRichEdit;

      Richedit.SelText := grid.Cells[grid.col,grid.row]; //mußt du selber anpassen
    end;
end;

im grid reicht ein (bei dragmode=dmmanual):

Delphi-Quellcode:

procedure TForm1.StringGrid3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TStringGrid(Sender).BeginDrag(false,10);
end;

mit dmautomatic könntest du nix selektieren, sorry, war auf eine Listbox aus. beim Grid macht dmautomatic nich viel Sinn.

Gruß Frank