17-07-2014, 01:08 AM
هذا مثال يقوم بلصق عندما يكون المؤشر فوق عنصر Edit
في الحدث
1- اضف الوحدة Clipbrd في قائمة uses
2- أضف هذا في حدث OnMouseMove
إذا كنت تبحث عن شيء آخر وضح
وبالتوفيق
في الحدث
1- اضف الوحدة Clipbrd في قائمة uses
2- أضف هذا في حدث OnMouseMove
كود :
[color=Red]Edit1.Text := ClipBoard.AsText;[/color]وبالتوفيق
سبحان الله وبحمده سبحان الله العظيم