-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
3. Jan 2008
...so gehts auch :-D const
WM_FERTIG = WM_USER + 1;
type
TJvFileListBox = class(JvDriveCtrls.TJvFileListBox)
private
ListeDateien: TStringList;
procedure DropFiles(var Msg: TMessage); Message WM_DROPFILES;
procedure HabeFertig(var Msg: TMessage); Message WM_FERTIG;
procedure TJvFileListBox.DropFiles(var Msg: TMessage);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
3. Jan 2008
ok...wie heißt das Dorf in Böhmen ? :roll:
...ich mache mich an die Arbeit :-D
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
3. Jan 2008
... aber das Drag ist doch abgeschlossen
...
DragFinish(Msg.WParam);
if BestatigungK then
begin
if MessageDlg...
vor der MessageBox :gruebel:
:wall: DragFinish gibt ja nur den Speicher wieder frei...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
3. Jan 2008
...Update :-D
ich hoffe....habe fertig. :mrgreen:
procedure TJvFileListBox.DropFiles(var Msg: TMessage);
var
i, Anzahl, Size: integer;
SourcePfad: PChar;
Dateiname: String;
Pfad: String;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
3. Jan 2008
...Guten Morgen...
...noch nicht müde oder schon wach ? :-D
...ich werde mir mal Deine Ratschläge zu gemüte führen... :roll:
... das mit dem inherited habe ich auch mit der Delphi Hilfe noch nicht richtig begriffen. :oops:
... wenn ich dich richtig verstehe meinst Du, daß ich die File Informationen erst einmal kpl. hinterlege, damit das Drop zügig abgearbeitet wird und dann in Ruhe...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
3. Jan 2008
...Guten Morgen... :-D
...ich muß dann auch mal ein Erfolgserlebnis loswerden. :mrgreen:
- per Drag/Drop Files in einen Ordner kopieren und in FileListBox anzeigen. :thumb:
DocVerzeichnis: Zielordner
FileListBox.Directory: Zielordner
procedure TJvFileListBox.DropFiles(var Msg: TMessage);
var
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
2. Jan 2008
...vielen, vielen Dank nochmal...
...wieder was gelernt :-D
:hi:
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
2. Jan 2008
...ich habe gelogen... :duck:
in FAnlagenkomponent liegt die ListBox auf einem TabSheet...
im TestFormular direkt auf dem Formular...
mit dem Abfangen direkt von der ListBox funktioniert es... Danke :thumb:
:?: heißt das man sollte sich angewöhnen die Message direkt vom Objekt abzufangen ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
2. Jan 2008
... habe ich.
in meinem Testformular habe ich mit solchen Varianten rumgespielt.
sowohl mit dem Handle des Formulars als auch der ListBox hat es funktioniert...
der gewünschte Unterschied war nur, daß das Drop einmal auf dem gesamten Formular akzeptiert wurde, das andere Mal nur auf der ListBox.
...habe aus
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
2. Jan 2008
Danke für die schnelle Reaktion...
die ListBox befindet sich direkt auf dem Formular.
unabhängig davon sollte aber die 4. procedure ausgeführt werden...
in meinem TestFomular (Form1) funktioniert das ja alles...
oder funktioniert das nur mit Form1.... :mrgreen:
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
2. Jan 2008
...aufwärm... :roll:
ich habe mal ein bischen rumgespielt...
und... :wiejetzt:
1. ShellApi eingebunden
2. private
{ Private-Deklarationen }
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
1. Jan 2008
Danke...
...die Links waren gut. :thumb:
...jetzt ist mir einiges mit dem 'Return Value' viel klarer. :-D
- ich spiel dann mal ein bischen rum... kopieren per Drag/Drop etc.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
1. Jan 2008
... ich löcher Euch einfach mal... :-D
... das Beispiel funktioniert ja... aber warum :gruebel: :oops:
- nullterminierte Strings :gruebel:
... ich habe die Funktion mal angehalten und mir die verschiedenen Werte mal angeschaut. (auf manche kann ich nicht zugreifen)
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
1. Jan 2008
...vielen Dank.
dann mache ich jetzt mal Copy / Paste und schaue mir das mal in Ruhe an...
Danke... :hi:
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
1. Jan 2008
Dank für die schnelle Antwort...
... :cheer: ist wirklich :-D
... für den Anfang geht es erst einmal um Dateinamen vom Explorer in eine FileListBox.
...mit Englisch komme ich zwar einigermaßen zurecht, wenn es aber ans eingemachte geht...hört es auf.. :(
-
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
1. Jan 2008
... ein erfolgreiches neues Jahr euch allen... :cheer:
... mit der SuFu komme ich zu keinem vernünftigem Ergebnis... :(
:?: - wo finde ich ein Tutorial zu Drag / Drop.
:?: - wie funktioniert das prinzipiell (kein Code).
...ich möchte erst einmal verstehen wie das funktioniert... den Rest kriege ich schon. :-D