Drag & Drop im Edit erkennen und farbig markieren

[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;

[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)

[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;

[Helmi]

Danke für die Info.

Nur wird das Edit erst markiert wenn das Droppen fertig ist.
Ich möchte aber das Edit markieren, wenn mit der Drag-Maus über das Edit gefahren wird

[Bummi]

mhhhh, bei mir verhält es sich so, sobald die Maus reinfährt wird es rot .....

[Helmi]

Zitat von Bummi:

mhhhh, bei mir verhält es sich so, sobald die Maus reinfährt wird es rot .....

kannst du bitte ein Testprojekt anhängen? Code und fertig compiliert?

[Bummi]

ich muss mich entschuldigen, ich habe es gerade nochmals nachgebaut und es verhält sich so wie von Dir beschrieben, ich hatte es falsch in Erinnerung ....

[Helmi]

Zitat von Bummi:

ich muss mich entschuldigen, ich habe es gerade nochmals nachgebaut und es verhält sich so wie von Dir beschrieben, ich hatte es falsch in Erinnerung ....

das ist natürlich schade

[Bummi]

ja ....
das hier könnte Dir weiterhelfen

// -----------------------------------------------------------------------------
// Project: Drag and Drop Component Suite
// Module: DragDrop
// Description: Implements base classes and utility functions.
// Version: 5.2
// Date: 17-AUG-2010
// Target: Win32, Delphi 5-2010
// Authors: Anders Melander, [e-mail], http://melander.dk
// Copyright © 1997-1999 Angus Johnson & Anders Melander
// © 2000-2010 Anders Melander
// -----------------------------------------------------------------------------

[Helmi]

Zitat von Bummi:

ja ....
das hier könnte Dir weiterhelfen

// -----------------------------------------------------------------------------
// Project: Drag and Drop Component Suite
// Module: DragDrop
// Description: Implements base classes and utility functions.
// Version: 5.2
// Date: 17-AUG-2010
// Target: Win32, Delphi 5-2010
// Authors: Anders Melander, [e-mail], http://melander.dk
// Copyright © 1997-1999 Angus Johnson & Anders Melander
// © 2000-2010 Anders Melander
// -----------------------------------------------------------------------------

Die Komponenten kenne ich - nur müssen diese auf den o. g. Code zurückgreifen - denn die Demos verhalten sich identisch