随笔分类 -  Delphi

摘要：procedure Tloginform.FormCreate(Sender: TObject);var errno:integer; hmutex:hwnd;begin hmutex:=createmutex(nil,false,pchar(application.Title)); errno:=getlasterror; if errno=error_already_exists then begin application.MessageBox(' 您已经打开了该软件'+#13#13+' 请 不要再尝试'+#13#13+'您只能运行一... 阅读全文

摘要：WebBrowser控件属性：1、Application如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，程序将返回WebBrowser控件的自动化对象2、Parent 返回WebBrowser控件的父自动化对象，通常是一个容器，例如是宿主或IE窗口3、Containe 返回WebBrowser控件容器的自动化对象。通常该值与Parent属性返回的值相同4、Document 为活动的文档返回自动化对象。如果HTML当前正被显示在WebBrowser中，则Document属性提供对DHTML Object Mode 阅读全文

摘要：一、系统1、打开其它程序、文件： uses ShellAPI; ShellExecute(Application.Handle, nil, PChar(FilePath), nil, nil, SW_SHOWNORMAL);2、浏览某文件或文件夹目录： uses ShellAPI; ShellExecute(Application.Handle, nil, PChar('explorer.exe'),PChar('/e, '+ '/select,' + FilePath), nil, SW_NORMAL);二、其它1、限制只能输入数字proced 阅读全文

摘要：{ 文本文件是以行为单位进行读、写的的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。}var F:Text; //与TextFile相同 FileName:String='Test.Txt';//省略路径，默认当前procedure CreateTxtFile;begin //文件变量与文件关连 AssignFile(F,FileName); //初始化读写,文件不存在时用Reset,Append会引用IO异常 Rese... 阅读全文

摘要：unit UMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,XMLDoc, XMLIntf, xmldom,msxmldom, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Memo1: TMemo; Button4: TButton; Button5: TButto... 阅读全文

摘要：{ 可用于下拉框的值，因为不经常变，就算变可改变INI文件一次。 一、ini文件结构 ; 注释，独占一行，否则认为是关键字的值 [小节名] 关键字=值 二、定义 uses IniFiles [UserInfo] userName=moon userPas=123456 isHun=1 [UserPro] userAge=26} //定义 filePath:String; myIniFile:TIniFile; //创建 fileP... 阅读全文

摘要：1、将OpenDialog打开的图片显示到image控件：//如果需要打开jpg图片，需要引用单元 uses jpeg;image1.Picture.LoadFromFile(OpenDialog1.FileName);2、产生随机数//uses math;Randomize; //初始化随机种子，否则结果相同。Randomrange(0,5); //随机产生0至4的随机数。random(5); //随机产生0到4的随机数。3、修改Delphi工具控件的默认字体：注册表：Delphi 6: HKEY_CURRENT_USER\Software\Borland\Delphi\6.0Del... 阅读全文

摘要：1、提示框TbsSkinMessageuses Dialogs; bsSkinMessage1.MessageDlg2(value,'提示',mtInformation,[mbOk],0); 阅读全文

摘要：1、右键选择行procedure TFZu.SG_dataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var MousePos: TSmallPoint;begin if Button = mbRight then begin MousePos.x := x; MousePos.y := y; SendMessage(SG_data.Handle, WM_LBUTTONDOWN, ... 阅读全文

摘要：是操作系统2003的数据保护引起的，解决办法： 右键 我的电脑--属性--高级--设置（性能）--数据执行保护，添加 delphi32.exe即可（或直接选中 “只为关键Windows程序和服务启用数据保护”）。 阅读全文

摘要：1、连接Excelprocedure TForm1.ConnectToExcel(EFileName: string); var strConn: widestring; str:TStrings; i:Integer;begin str:=TStringList.Create; //表形式，第一行为列名 strConn := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + EFileName + ';' + 'Extended Properties=IMEX=... 阅读全文