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