Drag&Drop Frage

[mOzZzI]

Hai,

möchte gerade eine Schnellstartleiste programmieren, so ähnlich wie SittingDuck es gemacht hat...
Mein Problem ist bei der Drag&Drop Sache...
Ich weiß nicht wie ich z.B. eine Verknüpfung von Winamp in einen SpeedButton/BitBtn via Drag&Drop
importieren kann, und das sich dann das Icon des Buttons als Glyph angezeigt wird...
Und wenn man dann Draufklickt das dann das Prog gestartet wird...
Ich weiß gar net wo ich anfangen soll...

[SirThornberry]

auf einen SpeedButton kannst du schonmal nix ziehen, BitBtn dürfte gehen. Wichtig dabei ist das dein Ziel (in deinem Programm) ein Handle hat. Wenn dem der Fall ist kannst du mit "DragAcceptFiles" festlegen das auf dieses Control/Fenster eine Datei abgelegt werden kann. Darauf kannst du dann wieder mit "WM_DROPFILES" reagieren.

[mOzZzI]

Zitat von SirThornberry:

auf einen SpeedButton kannst du schonmal nix ziehen, BitBtn dürfte gehen. Wichtig dabei ist das dein Ziel (in deinem Programm) ein Handle hat. Wenn dem der Fall ist kannst du mit "DragAcceptFiles" festlegen das auf dieses Control/Fenster eine Datei abgelegt werden kann. Darauf kannst du dann wieder mit "WM_DROPFILES" reagieren.

Also, das ist mir zu noch zu hoch...
Sry, aber wie wende ich sowas an??

[Matze]

Hi

Zitat von mOzZzI:

Also, das ist mir zu noch zu hoch...

Das ist auch nicht ganz trivial.

Mit diesem Code kommst du an den Dateinamen, aller weitere sollte keine Probleme machen. Das Icon kannst du anhand des Dateinamens aus der Datei auslesen (Einfach die Suche benutzen) und per ShellExecute kannst du diese Datei dann starten, da zum Öffnen einer datei der Dateipfad genügt.

[mOzZzI]

Also mit dem Code wo du mir gegeben hast, komme ich nicht zurecht, wo muss ich diesen Code einbauen??

Alle weiteren sollten keine Probleme machen,
bei mir schon

[Matze]

Zitat von mOzZzI:

Also mit dem Code wo du mir gegeben hast, komme ich nicht zurecht, wo muss ich diesen Code einbauen??

Das sind Delphi-Grundlagen

Delphi-Quellcode:

private
  procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;

  ...

  implementation

  ...

procedure TForm1.WMDROPFILES (var Msg: TMessage);
 
  ...

Nachtrag: Als Anfangsprojekt ist das eigentlich auch nciht so sehr geeignet.

[Daniel G]

Zitat von mOzZzI:

Alle weiteren sollten keine Probleme machen,
bei mir schon

Hättest du etwas weiter gescrollt, wäre dir aufgefallen, dass da sogar eine Komponente im Anhang hängt. Installier die doch einfach und dann bau sie nach deinen Vorstellungen um.

[mOzZzI]

Er bringt eine Fehlermeldung...

DragQueryFile: Undefinierter Bezeichner
DragFinish: Undefinierter Bezeichner

[SirThornberry]

Bei solchen Fehlermeldungen hilt meist ein Blick in die Hilfe... Du musst du Unit ShellApi einbinden

[mOzZzI]

So jetzt Compiliert er und alles, aber wie nehme ich jetzt z.B. Desktopicons via Drag&Drop in einen Bitbtn auf?