Drag & drop markierte text im memo

[michdan]

hallo Bummi

Das klappt wirklich, vielen dank.

Delphi-Quellcode:

procedure Tmemo.WMLButtonDown(var Message: TWMMouse);
begin
     if ((form1.memo1.SelText <> '') and not bSelected ) then
        begin
          form1.memo1.BeginDrag(false);
          bSelected := true;
        end
     else
        begin
          inherited;
          bSelected := false;
     end;
end;