RichEdit. Можно ли перетащить содержимое из этого элемента?

← →
AL2002 © (2002-06-07 13:34) [0]

Нужно перетащить так, чтобы не выделять текст в этом элементе.
Другими словами, чтоб курсора не было и, желательно, чтобы доступа к этому элементу тоже не было. Возможно ли это?

← →
Fiend (2002-06-07 13:44) [1]

Основной принцип перетаскивания и состоит в том, чтобы Source(object) поместить в Destination(тоже object), что будет перетаскиваться и куда вставляться определяется юзером, а как вставляться определяется программой.
Может я не так понял вопрос?!

← →
Игорь Шевченко © (2002-06-07 13:45) [2]

Если доступа нет, то нельзя.

Странного хотите :-)))

← →
AL2002 © (2002-06-07 13:53) [3]

Destination — another application.
Можно, конечно, тупо выделить весь текст и перетащить, а хочеться чтобы вообще козырно — не выделяя.

← →
Fiend (2002-06-07 14:00) [4]

Может тогда и мышку жать не будешь, и клаву топтать не станешь?????!!!!!

сделай у RichEdit1 DragMode=dmAutomatic
procedure TForm1.RichEdit2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source=RichEdit1;
end;

procedure TForm1.RichEdit2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
richedit2.Lines.addstrings(richedit1.lines);
end;

>Может тогда и мышку жать не будешь, и клаву топтать не станешь?????!!!!!
Прогу я делаю не только для себя а и для других. А если делать – то делать хорошо.

МВо, спасибо.

RichEdit. Можно ли перетащить содержимое из этого элемента? Найти похожие ветки