ich versuche folgendes :
in meiner TForm habe ich ein TLabel dessen Caption heist "C:\Temp\test.txt". Nun will ich via Drag Drop diesen Text in das Notepad++ Dropen, das dieses dann die Datei öffnet.
Mittels TLabel.Dragmode := dmAutomatic; und dem Eventhandler TLabel.EndDrag(..) bekomme ich ein Stück Quellcode, welches beim Ende des Draggings aufgerufen wird.
Da schreibe ich folgendes :
Code: Alles auswählen
Procedure TForm1.Label1EndDrag(Sender, Target: TObject; X, Y: Integer);
Var
h: HWND;
Begin
h := WindowFromPoint(point(x, y)); // Das hier ist leider immer = 0
If h <> 0 Then Begin
PostMessage(h, label1.caption,0,0); // Das geht natürlich auch nicht, noch habe ich nicht raus gefunden wie's richtig geht.
//If assigned(FindLCLWindow(p)) Then Begin
// nop;
//End;
nop;
End;
nop;
End;
Kann mir einer von euch helfen, oder nen Weg zeigen wie man es Richtig macht ?