Delphi 拖放编程

Delphi 拖放编程的相关文章

• 
  Delphi拖放编程

  标签：Delphi

    拖放 (DragDrop)是 Windows 提供的一种快捷的操作方式。作为基于 Windows 的开发工具， Delphi同样支持拖放操作，而且开发应用系统的拖放功能十分方便，真正体现了 Delphi 的强大功能和方便性。 Delphi提供的所有控件 (Control ，即能获得输入焦点的部件 ) 都支持拖放操作，并有相应的拖放属性、拖放事件和拖放方法。下面我们先介绍控件的拖放支持，而后再给出开发拖放操作的一般步骤和应...[ 查看全文 ]

  幸运的洋28

  21
• 
  delphi实例编程之--制作可随处拖放的工具栏

  标签：Delphi

    在我们经常使用的软件，比如photoshop，office，delphi等等，我们经常可以对工具栏进行拖拽操作----将相关的工具栏拖拉出来，形成独立的小窗口；或者将几个工具栏进行互相的组合！（这些就是我们常说的DOCK功能），效果如下图： DELPHI的工具栏 其实，利用DELPHI或是其它的可视化编程工具（如c++ builder等）很容易实现上面的功能！下面，我们通过一个小例子来看看它是如何实现的，这里使...[ 查看全文 ]

  风中飘落1

  41
• 
  Delphi编程技巧集锦

  标签：编程语言 网络编程

  ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel,ypanel,xlabel,ylabel:integer; PANEL的MouseMove事件：xpanel:=x;ypanel:=y; PANEL的DragOver...[ 查看全文 ]

  YeungTimes

  11
• 
  Delphi编程技巧实例

  标签：Delphi

    Delphi作为一门新起的Windows编程语言，由于其集众多的优秀特性于一身，因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能够对Delphi的爱好者有所裨益。 1．类似于vb．中的doevents功能。 大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括...[ 查看全文 ]

  HFS挑战者

  161
• 
  Delphi托盘编程实战演练

  标签：Delphi

  在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。 实战演练： 一．新建一个应用程序：File->New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 二．定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着...[ 查看全文 ]

  大戈寨

  191
• 
  delphi编程改变图片效果

  标签：编程语言 网络编程

  想不想另图片有另一番效果，使用下列语句实现吧，增加两个TImage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果： procedure TForm1.Button1Click(Sender: TObject);beginImage2.Canvas.Brush.Style := bsCross;Image2.Canvas.CopyMode := cmMergeCopy;Image2.Canvas.Draw(0,0, Image1.Picture.Graphic);end; [ 查看全文 ]

  离水的小鱼66

  01
• 
  Delphi 应用编程实例简介

  标签：Delphi

    1. 控制INI文件几法 要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI文件，所以列了如下方法给大家参考： 从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时，返回的默认值 strResult, //存放取得字符 100, //取得字符的允许最大长度 'c:\forwin95\win.in...[ 查看全文 ]

  尹雪00o

  81
• 
  delphi编程控制壁纸

  标签：编程语言 网络编程

  控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性也好在让我们可以实现定时更换桌面图片功能： var THEPCHAR...[ 查看全文 ]

  CM苏洛格

  11
• 
  Delphi图形图像编程

  标签：编程语言 网络编程

  在Delphi中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。 本章将介绍以下内容： 1. TCanvas,TPen,TBrush,TColor对象的方法及属性； 2. 绘图功能的实现； 3. TImage,TPicture,TBitBtn,TBitmap部件...[ 查看全文 ]

  778612645

  331
• 
  delphi编程小写金额转换

  标签：编程语言 网络编程

  财务软件中总少不了大写的金额表示方式，如下为一个简单的小写金额转换为大写的函数，其思路简单（可以说烂吧，居然利用了位置来转换），但是它却几乎可以无限制的转换，只要你能读得出来和写得进去： function Tform1.SmallTOBig(small:real):string;var SmallMonth,BigMonth:string;wei1,qianwei1:string[2];wei,qianwei,dianweizhi,qian:integer;begin{------- 修改参数令值更精确 -------}{小...[ 查看全文 ]

  金牛遗憾123

  41
• 
  Delphi图形图像编程（二）

  标签：Delphi

    直线时，用户只有在松开鼠标才能看见直线，对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种应。 Delphi 定义了 OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化： procedure TForm1.FormMouseMove(Sender:Tobject) begin Drowto(X,Y); Moveto(origin); end. origin是起始点。 5.2.3 绘图功能的实现 绘图软件常根据用户的要求改变绘图...[ 查看全文 ]

  流年晗

  111
• 
  delphi编程实现检测声卡存在

  标签：编程语言 网络编程

  如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Caption :=系统没有发现声卡;end; [ 查看全文 ]

  尕伍儿

  11
• 
  Delphi编程访问注册表

  标签：Delphi

  注册表是windows系统的一个庞大数据库，它存储着系统硬件、软件及用户信息。适当修改注册表的参数值，可以提高系统的性能。注册表的修改通常有两种途径：其一是利用windows系统提供的"RegEdit"命令进行修改。此种方法虽说直观，但由于注册表的复杂性，对于一般用户来说，此方法并不十分可行。其二就是以编程方式来访问注册表。掌握这种方法，对于程序员来说，是一个重要的基本技术。因为在我们的编程过...[ 查看全文 ]

  翡翠手镯370

  111
• 
  Delphi中API编程－－在Delphi中调用API函数

  标签：Delphi

    Delphi作为一种面向对象的可视化开发工具，以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。尽管Delphi已经提供了非常强大的开发组件（VCL），但灵活使用API函数一定可以使你的程序增色不少。 状态键的检查 当今不少流行软件的编辑窗口（包括Delphi的代码编辑窗口）的底部都有一个状态条用来显示一些状态信息，比如当前光标的位置等。通常键盘的状态键...[ 查看全文 ]

  再不飞就老了

  511
• 
  delphi编程生成非矩形窗口

  标签：编程语言 网络编程

  四四方方的窗体也会变形，利用win32 API函数setwindowrgn就可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子： procedure TPortForm.FormCreate(Sender: TObject);var hr :thandle;beginhr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)setwindowrgn(handle,hr,true); //设置园角窗口end; 为了使该窗口更好，应在onResize事件处理程序放相同的代码...[ 查看全文 ]

  year丑男1987

  11
• 
  Delphi图形图像编程（一）

  标签：Delphi

    在 Delphi 中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。 本章将介绍以下内容： 1. TCanvas,TPen,TBrush,TColor对象的方法及属性； 2. 绘图功能的实现； 3. TImage,TPicture,TBitBtn,...[ 查看全文 ]

  make〞love

  381
• 
  delphi编程实现动态创建别名

  标签：编程语言 网络编程

  对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。 但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。 AddAlias用于为Paradox、dBase或文本创建别名，不需要连接参数，...[ 查看全文 ]

  霸天嚣张的活着

  01
• 
  delphi编程类似链接的效果

  标签：编程语言 网络编程

  如果你想要有类似主页那样指向某字体，该字体就出现下划线，鼠标指针变为一支手指，按下后就打开浏览器或邮件编写器的功能，请按下列办法做（该方法只是在前面讲的实现超链接的方法上加入一些效果）： 先在一个窗体中加入一个Label1，在OnMouseMove事件里加入下列代码 procedure TForm1.Label1MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);beginLabel1.Font.Style:=[fsbold,fsu...[ 查看全文 ]

  飞戒爱恋晓

  01
• 
  delphi编程自制替换指定串函数

  标签：编程语言 网络编程

  这是本人自己制作的替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。 function replacing(S,source,target:string):string;var site,StrLen:integer;begin{source在S中出现的位置}site:=pos(source,s); {source的长度}StrLen:=length(source);{删除source字符串}delete(s,site,StrLen);{插入target字符串到S中}insert(target,s,site);{返回新串}replacing:=s;end; [ 查看全文 ]

  陈永恒55

  11
• 
  Delphi编程中Http协议应用(一)

  标签：Delphi

  Http协议的通信遵循一定的约定.例如,请求一个文件的时候先发送Get请求,然后服务器会返回请求的数据.如果需要进行断点传输,那么先发送HEAD /请求,其中返回的Content-Length: 就是文件实际大小.将其和我们本地需要断点下载的文件大小比较,发送GET请求和发送需要下载的文件开始位置RANGE: bytes=+inttostr(iFilePos)+-+#13#10;服务器如果支持断点下载的话就会接着发送余下的数据了.因为这方面的文章比较多...[ 查看全文 ]

  差点是帅哥nice

  501