搜索资源列表
tuxinxianshijiqiao
- 图形显示技巧,这是其中一段代码 procedure TForm1.Button1Click(Sender: TObject) var newbmp:TBitmap i,bmpheight,bmpwidth:integer //推拉 begin newbmp:=TBitmap.Create newbmp.Width:=image1.Width newbmp.Height:=image1.Height bmpheight:=image
Magic
- function MagMakeSkillFire_60(PlayObject: TBaseObject UserMagic: pTUserMagic nPower: Integer): Boolean function MagMakeSkillFire_61(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer var TargeTBaseObject: TBaseObject): Boo
VBS_delphi
- VBS解析_delphi.rar function ParseFileDir(a_strFileName) { var l_FunNo var l_BaseDir var result l_BaseDir = \"D:\\\\X项目\\\\\" l_FunNo = a_strFileName.substring(0, 5) result = l_BaseDir+l_FunNo + \\\\ +a_strFileName return
带附件及Html显示的邮件发送类
- unit UnitSendMail; interface uses Windows, SysUtils, Classes,StdCtrls, ExtCtrls, ComCtrls, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,IdMessageClient, IdSMTP
DelphiCDSService2010
- delphi调用C#Webservice访问数据库 //查询数据 procedure TForm1.Button1Click(Sender: TObject) var ls_Table: string ls_Service: Service1Soap begin ls_Service := Buf_GetBuleService ls_Table := Customers ClientDataSet1.XMLData := ls_Service.
neticq
- TChatForm = class(TForm) StatusBar1: TStatusBar MsgMemo: TMemo btnSend: TButton btnCancel: TButton procedure btnSendClick(Sender: TObject) procedure btnCancelClick(Sender: TObject) procedure MsgMemoKeyDown(Sender: TObject
u_pubvar
- public var and functions
formatlabel
- FormatLabel is enhanced TLabel component which provides functionality for displaying caption with more font styles and colors according HTML tags in caption string. Caption can contain parameters (between and tags), for each parameter will be called
hook
- hook function procedure HookWindow(hWnd: HWND) var Item: PItem begin if FindWindowProc(hWnd, HandleList) = nil then begin GetMem(Item,Sizeof(TItem)) Item.hWnd:= hWnd Item.Next:= HandleList Item.WndProc:= Pointer(Set
Var---x
- réaliser le programme d une calculatrice:somme de 2 variables
ProID
- 获取所有进程路径,查看进程属性,描述,结束进程-procedure TProcessDelForm.EndProcessBtnClick(Sender: TObject) var Li: TListItem Ls:TStrings P: PPluginsItemInfo ID,i:Integer begin Ls:=TStringlist.Create EnablePrivilege(GetCurrentProcess, Se
PDFReader
- 功能如下： 1.打開，保存，打印 2.放大縮小頁面，旋轉頁面，適合頁面，適合寬度 3.手型工具，選擇文字工具，快照工具，放大縮小工具，查找文本工具。 使用Delphi6開發，其他Delphi版本應該都可以，出了OCX控件沒有第三方控件。查看修改源碼需要註冊FOXITREADER_AX_PRO.OCX控件，方法如下: 1. 將FOXITREADER_AX_PRO.OCX複製到c:\windows\system322.regsvr32 FOXITREADER_AX_PRO.
Compras
- procedure TTelaPGTipoConta.FormKeyPress(Sender: TObject var Key: Char) begin if (Key = #13) then // Se a tecla for <enter> begin if (ActiveControl is TwwDBGrid) then { if it is a TDBGrid } with TwwDBGrid(ActiveControl) do begi
Gray-Image
- procedure GrayScale(const Image:TImage) var BytesPerScan: Integer iWidth, iHeight: Integer pScanLine: pByteArray R,G,B: Byte begin try BytesPerScan := Abs(Integer(Image.Picture.Bitmap.ScanLine[1])- In
Color-Lines.ZIP
- const maxWidth = 200 maxHeight = 150 var thumbnail : TBitmap thumbRect : TRect begin thumbnail := Form1.GetFormImage try thumbRect.Left := 0 thumbRect.Top := 0 //proportional resize if thumbnail.Width &g
kkk
- 基于决策支持系统的 DELPHI编程的小结-unit Unit3 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, jpeg, ExtCtrls type TForm3 = class(TForm) MainMenu1: TMainMenu
Crypt
- Crypt for delphi TfrmCryptTestBench = class(TForm) txtPassword : TEdit lblClearText : TLabel lblCypherText : TLabel lblPassword : TLabel cmdEncode : TBitBtn cmdDecode : TBitBtn cmdClose : TBitBtn txtClearText : TE
DBGridEhToExcel
- DBGridEh to Excel 调用的例子 var DBGridEhToExcel: TDBGridEhToExcel begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil) try DBGridEhToExcel.TitleName := 测试测试测试测试测试测试测试 DBGridEhToExcel.BeginDate := 开始日期：2005-07-01 DBGridE
MD5
- md5码加密，引用这个MD5以后直接 var s:string begin s:=StrMD5( 我要加密 ) end
delphil-flashform
- 1,FlashWindow(Application.Handle, True) 让主程序在任务栏上的图标闪烁 2,FlashWindow(form.Handle, True) 让指定的form状态栏闪烁 3，对于在任务栏上没有图标的form，比如form2可以用下面这个过程模拟一下， procedure CreateParams(var Params: TCreateParams) override procedure TForm2.CreateParams(var Para