Drag & Drop im Edit erkennen und farbig markieren

[Helmi]

Zitat von Bummi:

würde so etwas langen ?

Delphi-Quellcode:

        if Msg.hwnd = Edit1.Handle then
          begin
          if Edit1.Tag=0 then
               Edit1.Text := PChar(@pDroppedFilename)
          else Edit1.Color := clRed;
          end

.....

procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
  Tedit(Sender).Color := clWhite;
end;

Hallo,

ich kann dem Code nicht wirklich folgen. Für was ist die Abfrage von Edit1.Tag auf 0?
MouseLeave gibt es bei den Edits nicht (jedenfalls nicht bei Delphi 7)