Drag&Drop

[Hans-Jürgen Schmid]

Hallo und einen guten Tag (oder Abend);<BR>
habe das erste Mal probiert, mit Drag&Drop zu arbeiten,<BR> d.h., von einer FileListBox eine Datei in eine ListBox hinüberzuziehen. <BR>
Komme einfach nicht dahinter, wie ich das programmieren soll!<BR>
Von einem Editfeld in ein Label funktioniert es, auch von einer FileListBox in ein Label.<BR>
Kann mir da jemand helfen?<BR>
Vielen Dank, im Voraus für die Mühe!<BR>
Gruß<BR>
Hans-Jürgen

[John Oppen]

Hallo Hans-Jürgen,

nichts leichter als das.

Setze in der Filelistbox DragMode auf
"dmAutomatic"

und versuche es mal hiermit

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept := True;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source = Filelistbox1 then
begin
Listbox1.Items.add(Filelistbox1.FileName);
end;
end;

Gruß
Joh

[Hans-Jürgen Schmid]

Hallo John,<BR>
vielen Dank für die schnelle Hilfe! <BR>
Funktioniert grundsätzlich, nur wird <BR>
nicht nur die Datei (File)<BR>
hinübergezogen (kopiert)<BR>
sondern auch die gesamte Bezeichnung des<BR> Verzeichnisses.<BR>
Werde noch ein wenig "basteln" müssen.<BR>
Gruß<BR>
Hans-Jürgen<BR&gt

[John Oppen]

Versuche es mal mit
ExtractFilename(Filelsibox1.Filename);
Dann wid nur der Name angezeigt, kopiert ...

Joh

[Hans-Jürgen Schmid]

John, vielen Dank,<BR>
für die Reaktion!<BR>
Habe den Hinweis probiert (ExtractFilename..)<BR>
funktioniert aber nicht.<BR>
Weis nicht was ich falsch mache!<BR>
Es kommt die Meldung: unbekannter Bezeichner<BR>
Gruß Hans-Jürgen<BR&gt

[Jochen Reichenberg]

Schon mal mit ExtractFile<B>N</B>ame(...) versucht

[Hans-Jürgen Schmid]

Vielen Dank fuer Deine Antwort, Jochen!<BR>
Habe ich schon probiert, nichts tut sich<BR>
Meldung: Unbekannter Bezeichner ;<BR> muß ich mir ansehen.<BR>
Gruss Hans-Juergen<BR&gt

[Jochen Reichenberg]

ExtractFileName muss aber funktionieren, also vermute ich den Fehler an anderer Stelle. Wie sieht denn die entsprechende Routine aus?

Grüße Joche

[Hans-Jürgen Schmid]

Hallo Jochen,<BR>
hier die "Quelle" <BR>
<BR>
{In der FileListBox bei DragMode: dmAutomatic eingestellt!)<BR>
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);<BR>

begin<BR>
accept := True;<BR>
end;<BR>
<BR>
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);<BR>
begin<BR>
if Source = Filelistbox1 then<BR>
begin<BR>
Listbox1.Items.Add(Filelistbox1.FileName);<BR>
{ListBox1.ExtractFileName(Filelistbox1.FileName);} <BR>
end;<BR>
end;<BR>
<BR>
end.<BR&gt

[Jochen Reichenberg]

Hallo Hans-Jürgen,

mein Delphi ist nicht so besonders... Was haben denn die geschweiften Klammern zu bedeuten? Auskommentiert? Und was soll diese Zeile bewirken?<BR>
<PRE>
begin
ListBox1.Items.Add(ExtractFileName(Filelistbox1.Fi lename));
end;
</PRE>
sollte funktionieren. Hast Du das Bsp abgetippt, oder kopiert? Listbox1 und ListBox1 sind verschiedene Bezeichner...

Grüße Joche

[John Oppen]

Hier ist die richtige anwendung <br>
<b>ListBox1.items.add(ExtractFileName(Filelistbox1 .FileName));</b>

Jetzt wird nur der Dateiname in die Listbox eingefügt

Joh

[Jochen Reichenberg]

Dafür, dass ich nicht mal Delphi hab', war ich doch nah dran. Hab' die BCB-Version genommen und die -> durch . ersetzt..

[Hans-Jürgen Schmid]

Hallo Jochen und alle anderen Helfern; <BR>

der Quellcode-Satz von John funktioniert!<BR>
Die Frage: Was die geschweiften Klammern bedeuten?<BR>
Antwort: Da setze ich meine Kommentare hinein!<BR> oder wenn ich etwas versuche und es noch nicht funktioniert<BR> und es nicht vergessen will!<br>
Vielen Dank noch einmal und Gruss<BR>
Hans-Jürgen<BR&gt