Drag and Drop из RichEdit
|
Разговор двух программистов:
- Ты слышал, Костя умер.
- А он записался?!!
|
var
Form1: TForm1;
richcopy: string;
transfering: boolean;
implementation
{$R *.DFM\}
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if length(richedit1.seltext)>0 then begin
richcopy:=richedit1.seltext;
transfering:=true;
end; //seltext
end;
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if transfering then begin
transfering:=false;
listbox1.items.add(richcopy);
end; //transfering
end;
|
|
