文章分类 - delphi
摘要：if(m_ckTop.GetCheck()) ::SetWindowPos(AfxGetApp()->m_pMainWnd->m_hWnd,HWND_TOPMOST,0,0,0,0,SWP_SHOWWINDOW|SWP_NOMOVE|SWP_NOSIZE); else ::SetWindowPo...
阅读全文
摘要：uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExcelXP, OleServer, ExtCtrls,ComObj, jpeg, WinSkinData,XLSReadWriteII4;复制 XLSReadWriteII4 源文件放入 项目procedure TForm8.btn1Click(Sender: TObject);var topen : TOpenDialog; exfile :string; Excel...
阅读全文
摘要：一、下载官方下载网址: http://www.axolot.com/components/download.htm从这里可以下载到从Delphi5到DelphiXE全部支持的版本。二、软件安装下载下来的文件是exe格式，可以直接安装，一路next即可。按照默认安装，会在:C:\Documents and Settings\All Users\Documents\RAD Studio\8.0 路径下生成XLSRWII4_D2011.bpl，安装时需要使用。C:\Program Files\XLSSuit4路径下生成Package文件、Samples文件夹等，包括程序编写时需要的include文.
阅读全文
摘要：在DELPHI中使用XLSReadWrite操作Excel简便快捷，软件可在本机未安装Office的前提下读取Excel文件，网上资料较少，现将自己的学习杂记做一记录，Delphi的不同版本，需要不同版本的XLSReadWrite来支持，自己用的Delphi2010，使用XLSReadWriteII4破解版本。定义一个控件变量xls:XLSReadWriteII4文件名指向xls.FileName:=’D:\测试.xls’文件读取xls.Read文件存取xls.Write文件密码设定：若在存取前设定密码，则在下次读取前需指定密码方能正确打开，否则将产生错误！密码设定-xls.PassWord:
阅读全文
摘要：//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出现的位置} List.Sort; {排序} List.Sorted :=
阅读全文
摘要：goRangeSelect := false ; //不允许选择多行goRowSelect := true ; //选择行procedure Tfm_main.Grid2DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);var s: String;R: TRect;begin if ARow = Grid2.Row then begin TStringGrid(Sender).Canvas.Brush.Color := clmoneygreen; S := TStringG...
阅读全文
摘要：使用回调函数来添数据。给你一个例子unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComCtrls;typeTViewData=classNum:Integer;Name:AnsiString;Age:Integer;end;typeTForm1=class(TForm)ListView1:TListView;Button1:TButton;Edit1:TEdit;Button2:TButton;Label1:TLabel;Sta
阅读全文
摘要：解决方法：将WinSkinForm.pas单元中，如下代码的第26行注释掉就OK了。procedure TWinSkinForm.GetIcon(var bmp:Tbitmap);var SmallIcon: HIcon; cx, cy,i: Integer; sd:Tskindata;begin cx := GetSystemMetrics(SM_CXSMICON); cy := GetSystemMetrics(SM_CYSMICON);// bmp.Assign(nil);// bmp.canvas.brush.color:=clFuchsia; bmp.width:=cx;bmp.he
阅读全文
摘要：Delphi打开网址链接的几种方法：1：用默认浏览器打开,uses shellapiprocedure TForm1.Button2Click(Sender: TObject);beginShellExecut(Application.Handle, nil, 'http://cy03wqh.blog.163.com', nil, nil, SW_SHOWNORMAL);end;2：用IE浏览器打开的3种方法：{uses shellapi}procedure TForm1.Button1Click(Sender: TObject);beginShellExecute(Appli
阅读全文
摘要：帮你找了一小段当在文本框中输入完毕后，敲回车就相当于按确定键！ 二种方法： 1、在OnKeyPress事件中判断回车键； 2、响应文本框中的OnValidate事件。 在文本框的onKeyPress事件中写： if key=#13 then Btn_OkClick(Sender); //Btn_Ok即确定按钮。 form的KeyPreview设置为true； edit1的OnKeyPress中写： if key=#13 then begin key:=#0; edit2.SetFocus end;哥晓得的最简单的方法： 用：TActionList。 在TActionList中新增一事件...
阅读全文
摘要：多线程下载. .http://blog.csdn.net/flashrhx2007/article/details/2823153uses IdMultipartFormData;{ .... }procedure TForm1.Button1Click(Sender: TObject);var data: TIdMultiPartFormDataStream;begin data := TIdMultiPartFormDataStream.Create; try { add the used parameters for the script } data.AddFormField('
阅读全文
摘要：procedure TForm1.Button3Click(Sender: TObject); var h:TIdhttp; res : String; MyStream:TMemoryStream; begin MyStream:=TMemoryStream.Create; h:=Tidhttp.Create(nil); try h.get('http://www.3464.com/project2.exe',MyStream); except showmessage('网络出错!'); MyStream.Free; exit; end; MyStream.S
阅读全文
摘要：Windows 数据类型Delphi 数据类型描述LPSTRPAnsiChar字符串指针LPCSTRPAnsiChar字符串指针DWORDLongWord整数BOOLLongBool布尔型PBOOL^BOOL指向布尔值的指针PByte^Byte指向字节值的指针PINT^Integer指向整数值的指针PSingle^Single指向单精度浮点值的指针PWORD^Word指向16位值的指针PDWORD^DWORD指向32位值的指针LPDWORDPDWORD指向32位值的指针UCHARByte8位值(可用来表示字符)PUCHAR^Byte指向8位值的指针SHORTSmallint带符号16位整数UI
阅读全文
摘要：自定义 这么一个过程就可以了： 在 private { Private declarations } procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; public 这两个下面哪个里面定义都可以。 procedure TForm1.WMSysCommand; begin if Msg.CmdType = SC_MINIMIZE then Form1.Hide; //本人的加上application.mini... DefaultHandler(Ms...
阅读全文
摘要：ProcessMessage();注释中已经说的很明白了。在大的或者耗时较长的循环处理中，程序会不响应消息队列，这时候，程序界面不会刷新，点击也没有反应（死机状），如果要避免这种情况，就需要在循环中适当（也许每次循环，也许几次循环处理一次）通过手动代码响应和处理消息队列，这就是它的功能和作用。
阅读全文
摘要：Delphi 的字符及字符串 - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideCharDelphi有三种类型的字符：AnsiChar这是标准的1字节的ANSI字符，程序员都对它比较熟悉。WideChar这是2字节的Unicode字符。Char在目前相当于AnsiChar，但在Delphi以后版本中相当于WideChar.记住因为一个字符在长度上并不表示一个字节，所以不能在应用程序中对字符长度进行硬编码，而应该使用Sizeof()函数。注意Sizeof()标准函数返回类型或实例的字节长度。字符串是代表一组字符的变量类型，每一种语言都有自己的字符串类型的
阅读全文
摘要：在application.messagebox()函数中的第一个参数要用到PAnsiChar。所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡 strAnsi:= PAnsiChar(AnsiString(str));
阅读全文
摘要：1 http://topic.csdn.net/t/20041018/02/3464822.html首先在你的*.DPR项目文件里加上这一行 {$APPTYPE CONSOLE} 然后 调用 Writeln('文本'); 就行了 2 http://blog.csdn.net/dogbear2000/archive/2005/02/03/279485.aspx在Delphi中如何输出后台调试信息？有些时候，我们需要输出调试信息，但又不在界面上，也不希望弹出窗口中断执行，这时，只要用OutputDebugString就可以了，然后在View|Debug Window|Event L
阅读全文
摘要：function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;rfReplaceAll：全部替换 rfIgnoreCase：忽略大小写For Example：var aStr: String; begin aStr := 'This is a book, not a pen!'; ShowMessage(StringReplace (aStr, 'a', 'two', []));//This is two book, n
阅读全文
摘要：开发的系统中的一个下载文件的功能，有一个API就可以搞定了，这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码：uses UrlMon; function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil)
阅读全文
浙公网安备 33010602011771号