zhangshengqi的博客_知识点积累(3)

欢迎

WAVE 资源

//rc 文件:sound1 WAVE "SoundFile1.wav"sound2 WAVE "SoundFile2.wav" //代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr

职场

休闲

转载 2009-04-26 17:31:23 345 阅读

带背景的 TPanel

程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题!发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品.代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialo

职场

休闲

转载 2009-04-26 17:22:47 626 阅读

菜单资源

//rc 文件: MyMenu1 MENU begin Popup "File" begin MenuItem "&Open" MenuItem "&Save" MenuItem Separator MenuItem "E&xit" end end {严格的头可能是这样写: MyMenu1 MENU PRELOAD DISCARDABLE} //程序代码: u

职场

休闲

转载 2009-04-26 17:15:47 407 阅读

用资源中的图片做背景、使用 LoadFromResourceID

首先编辑 rc 文件如下(假定图片文件放在程序目录下的 img 文件夹下):1 BITMAP img\bmpFile1.bmp2 BITMAP img\bmpFile2.bmp或者:1,BITMAP,img\bmpFile1.bmp2,BITMAP,img\bmpFile2.bmp这次我们是给每个资源做了编号, 没有取标识名称; 然后在窗体上添加两个 Button, 代码如下: unit

职场

休闲

转载 2009-04-26 17:12:56 640 阅读

用 Image 显示资源中的图片

首先编辑 rc 文件如下(假定图片文件放在程序目录下的 img 文件夹下):bmp1 BITMAP img\bmpFile1.bmpbmp2 BITMAP img\bmpFile2.bmp或者:bmp1,BITMAP,img\bmpFile1.bmpbmp2,BITMAP,img\bmpFile2.bmp然后在窗体上添加一个 Image、两个 Button, 代码如下: unit Unit

职场

休闲

转载 2009-04-26 17:09:54 604 阅读

学习 TTreeView [13] - 在 TTreeView 中显示目录结构(的函数)

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm)

职场

休闲

转载精选 2009-04-26 16:55:31 542 阅读

浅谈TCP/IP原理与技术

什么是TCP/IP？TCP协议和IP协议指两个用在Internet上的网络协议（或数据传输的方法）。它们分别是传输控制协议和互连网协议。这两个协议属于众多的TCP/IP 协议组中的一部分。TCP/IP协议组中的协议保证Internet上数据的传输，提供了几乎现在上网所用到的所有服务。这些服务包括：电子邮件的传输文件传输新闻组的发布访问万维网在TCP/IP协议组分两种协议：

职场

休闲

转载精选 2009-04-22 09:22:12 415 阅读

Delphi 的内存操作函数(1): 给字符指针分配内存

马上能想到的函数有: GetMem AllocMem ReallocMem FreeMem GetMemory ReallocMemory FreeMemory New Dispose NewStr DisposeStr StrNew StrAlloc StrDispose GlobalAllocPtr GlobalFreePtr WideStrAlloc

职场

休闲

转载精选 2009-04-18 15:18:41 643 阅读

数组赋值比较

procedure TForm1.btn1Click(Sender: TObject);var data1: array[0..65535] of byte; data2: array[0..65535] of byte; i :integer; d :byte; s,s1:Pointer ;begin for i

职场

休闲

原创 2009-04-17 16:06:34 426 阅读

delphi中move函数的用法转

我们能看到以下代码var pSource,pDest:PChar; len: integer;.......................//一些代码Move(pSource,pDest,len); //错误Move(pSource^,pDest^,len); //正确看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Del

职场

休闲

转载精选 2009-04-16 09:55:23 490 阅读

远程桌面控制

使用的是微软的rdp(tcp)协议，微软对此提供了一个MSTSCAX(activex).你可以把它加到你的程序里边。vnc,pcanywhere和windows的远程终端服务是不一样的，远程终端服务是另外一个login session,这个session产生的桌面，进程，并不影响其他login session的进程

职场

休闲

转载精选 2009-04-15 14:25:15 427 阅读

提取文件图标

procedure TForm1.btn3Click(Sender: TObject);varFileName: AnsiString;begin if OpenDialog1.Execute thenFileName := OpenDialog1.FileName ;img1.Picture.Icon.Handle :=ExtractIcon(Hinstance, pchar(Fil

职场

休闲

原创 2009-04-08 18:04:57 412 阅读 1评论

界面制作

1 整个面板改变颜色 Gradientcolorstop---clGradientActiveCaption2 单个分组改变面板 CaptionColorStop---clSkyBlue(右边) CaptionColorStart---clWhite(左边) 整个分组面板颜色 Color---clSkyBlue 面板边框颜色&

职场

休闲

原创 2009-03-18 11:14:27 443 阅读 2评论

delphi控件toolbar操作

drawingstyle 设置成dsGradient效果好

职场

delphi

控件

休闲

toolbar

原创 2009-02-06 16:53:27 1711 阅读 2评论

将数据集由横向显示改为竖向并规定列个数

procedure TForm1.btn3Click(Sender: TObject);begin myclntdtst1.Close; myclntdtst1.CommandText :='select * from Base_DataError'; myclntdtst1.Open; T

职场

休闲

数据集

原创 2008-12-25 11:36:20 635 阅读 4评论

字符串分解为数组

procedure TForm1.btn1Click(Sender: TObject);var MultiDB:array[0..20] of string; multiname:string; i,j,z:Integer;begin multiname:='a,bc,def,ghth,'; j:=1;&nb

职场

数组

字符串

休闲

原创 2008-12-19 14:12:59 516 阅读 1评论

像咨询师一样思考

我一直在想办法提升管理软件的销售价。在软件产品方面，分了高级版、标准版、简化版。并且引入了测试，提高产品质量。引入了文案，制作了产品白皮书、操作帮助说明、安装说明、配置说明、维护说明、新版本更新说明、操作视频、演示版。在软件UI方面，引入了美工。在实施方面，引入了金牌实施顾问、银牌实施顾问、铜牌实施顾问。在服务支持方面也亦然。一切的一切，都旨在一个产品，面对不同层次的客户进行裁减组合，销售不同

职场

休闲

转载精选 2008-12-17 11:56:09 342 阅读

模态窗体

self.ModalResult := mrOk;self.ModalResult := mrCancel; if form2.ShowModal=mrOk thenShowMessage(Form2.edt1.text);

职场

休闲

模态窗体

原创 2008-12-16 10:37:29 427 阅读 1评论

在Delphi中编写自己的链表管理类

在Delphi中使用链表，我们第一个想到的自然是使用TList类来实现（以前我也是这样做的）。但是当我们仔细看一下TList的实现就会发现这个类的实现其实使用的是数组的方式来实现的。哪如何编写自己的链表管理类呢？其实这个问题在几乎每个将数据结构的书中都有讲到。这里我大概写一下我在写自己的链表管理中使用的方法。如有不正确的地方希望大家指正。首先定义一个保存数据的结构： PMyInfo =

Delphi

类

其他

休闲

链表

转载精选 2008-12-09 10:48:54 1189 阅读

Delphi下使用指针的简单总结

1：指针的赋值。 type RTestInfo = record Age：Integer; end; PtestInfo = ^ RtestInfo; var Test1,Test2：PtestInfo; Begin New(Test1); New(Test2);

职场

Delphi

休闲

指针

转载精选 2008-12-09 10:46:41 691 阅读

运行期间运动的按钮

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin {if SsCtrl in Shift then Begin } ReleaseCa

职场

休闲

运行期间运动的按钮

转载精选 2008-12-05 09:21:51 475 阅读

Delphi ListView基本用法大全

Delphi ListView基本用法大全 2007-12-10 19:57 //增加项或列(字段) ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Cap

职场

Delphi

休闲

ListView基本用法大全

转载精选 2008-12-02 10:03:35 7638 阅读 1评论

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

601880

欢迎

WAVE 资源

带背景的 TPanel

菜单资源

用资源中的图片做背景、使用 LoadFromResourceID

用 Image 显示资源中的图片

学习 TTreeView [13] - 在 TTreeView 中显示目录结构(的函数)

浅谈TCP/IP原理与技术

Delphi 的内存操作函数(1): 给字符指针分配内存

数组赋值比较

delphi中move函数的用法转

远程桌面控制

提取文件图标

界面制作

delphi控件toolbar操作

将数据集由横向显示改为竖向并规定列个数

字符串分解为数组

像咨询师一样思考

模态窗体

在Delphi中编写自己的链表管理类

Delphi下使用指针的简单总结

运行期间运动的按钮

Delphi ListView基本用法大全