Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#1

Ole Drop, um Text aus belibiger Anwendung ins Memo zu ziehen

  Alt 30. Jan 2010, 20:35
Hallo,

in diesem Thema habe ich festgestellt, dass es gar nicht so einfach ist von einer belibigen Anwendung Text in ein Standart Memo per Drag und Drop zu ziehen.

Nach ner Weile im Internet Googeln, habe ich dann eine passende Unit zusammengestellt, aus allem was ich da so finden konnte. Alles vorgegebene sind extra Komponenten oder für den kleinen Zweck viel zu viel Code.
Also habe ich aus allem eine kleine Unit entworfen, die da Abhilfe schaffen sollte.

Unit muss nur dem Projekt hinzugefügt werden, und die Zeilen die Kommentiert sind, angepasst werden... Das Demo Programm ist ebenfalls kommentiert.

Anmerkung:
Nutzer des RichEdit Controls (ob VCL oder nonVCL) brauchen dieses nicht, da bei dem Control die Funktion standartmäßig implementiert ist.

Anbei ist die benötigte Unit, und ein Demoprogramm. Eine Screenshot hänge ich mal nicht mit an, da auf dem ehh nur eine Form mit einem Edit zu sehen währe
In das Memo kann nun ohne Probleme Text, der z.B.: im Browser makiert wurde, per Drag und Drop im Edit abgelegt werden.

Wollte das hier rein stellen, da ich mir Vorstellen könnte, dass noch ein paar mehr solch eine Funktion mal irgendwann gebrauchen könnten.

(Teile der Unit sind im Netz zusammengefischt, und daher auch ohne Copyrightvermerk)
Angehängte Dateien
Dateityp: zip oletextdrop_304.zip (206,8 KB, 116x aufgerufen)
Dateityp: pas uoledrop_114.pas (2,6 KB, 85x aufgerufen)
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat