![]() |
Re: Entlich die Testversion: MediaCenterXXL
Wird sie heute noch erscheinen? Wahrscheinlich nein, Schade, denn die ganze Welt wartet aufgeregt auf Version 1.1, nun aucgh mit Stop, Pause und Play-Taste!
|
Re: Entlich die Testversion: MediaCenterXXL
die hat er gestern schon On gestellt, hat dazu aber n neuen Thread eröffnet. "MEdiaCenterXXL Version 1.1" oder so ähnlich.
|
Re: Entlich die Testversion: MediaCenterXXL
|
Re: Danke@ MrKnogge
@Mirilin
Verdammt, grad wollt ich den neuen link posten :evil: Zu Posts zu Version 1.1 (siehe link von Mirilin) Zitat:
Zitat:
Zitat:
Zitat:
|
Re: Entlich die Testversion: MediaCenterXXL
So, hier wie versprochen, n Beispiel für Drop&Drag (aber ungetestet !)
Delphi-Quellcode:
Sollte so funktionieren, wenn nicht, einfach noch mal melden.
...
private { Private declarations } procedure GetDroppedFileNames(var msg : TWMDropFiles); message WM_DROPFILES; ... procedure TForm1.GetDroppedFileNames(var msg : TWMDropFiles); var sFileName : string; dwFileCount : cardinal; i : cardinal; dwReqdLength : cardinal; begin dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0); for i := 0 to dwFileCount - 1 do begin dwReqdLength := DragQueryFile(msg.Drop,i,nil,1); sFileName := StringOfChar(#00,dwReqdLength+1); DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1); ListBox1.Add(filename); end; end; ... procedure TForm1.FormCreate(Sender: TObject); begin ... DragAcceptFiles(self.Handle,true); ... end; ... Achso die Punkte bitte nicht reinschreiben, sind lücken :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz