Drag & drop markierte text im memo

[Sir Rufo]

Aber bitte so:

Delphi-Quellcode:

  Tmemo= Class( StdCtrls.TMemo )
  private
    bSelected : Boolean; // sollte man eigentlich noch initialisieren
  public
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  End;

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;