Problem drap and drop in RAD Studio 10.2 Tokyo
Hallo zusammen,
ich versuche den Link oder den Dateinamen mit Pfadnamen einer beliebigen Datei aus dem WindowsExplorer in eine Listbox per drag and drop einzufügen. Ich versuche es mit der einfachen procedure WMDropfiles oder auch mit der componente "Drag and Drop Suite". Es klappt einfach nichts !!!!!!!!!!!!!!!!!!!!!!!! Ich klicke die Datei im Explorer an, ziehe Sie in meinem Programm auf die ListBox, der Mauszeiger mit dem Plus erscheint, aber beim loslassen der Maustaste passiert nichts. In der FormCreate wir der dragAcceptFiles(handle, True) gesetzt. shellapi aufgerufen. Alles wie in den zu findenden Beispielen. Setze ich einen Haltepunkt in der procedure WMDropFiles wird der gar nicht angesprungen, also wmDropFiles gar nicht aufgerufen. Wo liegt mein Fehler :?::?::?::?::?: Hier der verwendet Code uses shellapi; private procedure WMDROPFILES(var Msg: TMessage); Message WM_DROPFILES; procedure TForm1.WMDROPFILES(var Msg: TMessage); var i, Counts, Size: Integer; PCharFileName: PChar; begin inherited; PCharFileName:=nil; Counts:=DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255); for i:=0 to Counts - 1 do begin Size:=DragQueryFile(Msg.WParam, i, nil, 0) + 1; PCharFileName:=StrAlloc(Size); DragQueryFile(Msg.WParam, i, PCharFileName, Size); showmessage(String(PCharFileName)); StrDispose(PCharFileName); end; DragFinish(Msg.WParam); end; procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(ListBox1.Handle, True); end; Danke. |
AW: Problem drap and drop in RAD Studio 10.2 Tokyo
Die Glaskugel sagt:
Nein! :glaskugel: Im Ernst: Hier wäre Quelltext nicht schlecht. Gerne auch als ganzes minimales Projekt, per Zip-Archiv angehängt! |
AW: Problem drap and drop in RAD Studio 10.2 Tokyo
Zitat:
...:cat:... |
AW: Problem drap and drop in RAD Studio 10.2 Tokyo
Hallo Sakura,
deine Idee war gut. Das Programm( die exe) direkt starten, dann gehts. Seltsam! Was steckt da dahinter, das es so geht? |
AW: Problem drap and drop in RAD Studio 10.2 Tokyo
Zitat:
Zitat:
...:cat:... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz