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:

Zitat von Bummi (Beitrag 1139878)

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:

Zitat von Bummi (Beitrag 1140133)

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 ....:pale:

[Helmi]

Zitat:

Zitat von Bummi (Beitrag 1140137)

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 ....:pale:

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:

Zitat von Bummi (Beitrag 1140161)

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