Drag & drop markierte text im memo

[Bummi]

Du könntest ja sonst die Selektion nicht mehr per Maus ändern ...
vielleicht kannst Du daraus was basteln ...

Delphi-Quellcode:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tmemo=Class(StdCtrls.TMemo)
        procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  End;

  TForm5 = class(TForm)
    Memo1: TMemo;
    procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}



{ Tmemo }

procedure Tmemo.WMLButtonDown(var Message: TWMLButtonDown);
begin
  // hier vielleicht über Tag o.ä. zusätzlich steuern ob oder ob nicht inherited aufgerufen wird  
  if (SelText <> '') then BeginDrag(false)
  else inherited;
end;

end.