Drag & Drop im Edit erkennen und farbig markieren

[Bummi]

Tag war nur als Flag für erlaubt/nicht erlaubt gedacht ...

das in D7 fehlende Mouseleave lässt sich schnell nachrüsten ....

Delphi-Quellcode:

type
  TEdit = Class(StdCtrls.Tedit)
         procedure WMMouseLeave(var Message: TWMMouseMove); message WM_MOUSELeave;
  End;
  TForm1 = class(TForm)

.....


{ TEdit }

procedure TEdit.WMMouseLeave(var Message: TWMMouseMove);
begin
 Form1.Caption := 'MouseLeave';//Blödsinn nur zur Demo
end;