摘要：
//res 字符串资源//rc 文件:StringTablebegin0 "AAAA"1 "BBBB"2 "CCCC"3 "DDDD"end//也可以这样写:StringTablebegin0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"end//还可以这样写:StringTable{0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD&qu 阅读全文
posted @ 2014-07-29 20:30
XE2011
阅读(276)
评论(0)
推荐(0)
摘要：
//文字在窗体上水平来回移动procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}beginif label1.Left+label1.Width>0 thenlabel1.Left:=label1.Left-2else label1.Left:=form1.Width;end;来自为知笔... 阅读全文
posted @ 2014-07-29 20:27
XE2011
阅读(243)
评论(0)
推荐(0)
摘要：
Edit
TEditCut
TEditCopy
TEditpaste
TEditSelectAll
TEditUndo
TEditDelete 编辑 剪切 复制 粘贴 全选 撤销 删除 关联在以下控件上功能有效
TMainMenu
TPopMenu
TToolBar 以下控件功能有效
TMemo
TEdit
... 阅读全文
posted @ 2014-07-29 20:24
XE2011
阅读(258)
评论(0)
推荐(0)
摘要：
CoolBar这个怎么弄没了像Windows这样的 procedure TForm1.Button1Click(Sender: TObject);
begin CoolBar1.FixedOrder:=True;
end; 来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 20:18
XE2011
阅读(258)
评论(0)
推荐(0)
摘要：
(*
一般的清空combobox方法 combobox1.clear;
...
combobox9.clear;
*) procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin for i:=0 to self.ComponentCount-1 do
begin if self.Compo... 阅读全文
posted @ 2014-07-29 20:17
XE2011
阅读(824)
评论(0)
推荐(0)
摘要：
//垂直显示标签文本Label1.Caption:='垂'+#13+'直'+#13+'显'+#13+'示';//使用相同的方法,我们也可以制作垂直显示的提示(Hint):button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示';来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 20:16
XE2011
阅读(270)
评论(0)
推荐(0)
摘要：
//array应用 DayOfWeek星期几判断procedure TForm1.Button1Click(Sender: TObject);vardays:array[1..7] of string;todayIs:string;begindays[1] := '日 ';days[2] := '一 ';days[3] := '二 ';days[... 阅读全文
posted @ 2014-07-29 20:15
XE2011
阅读(942)
评论(0)
推荐(0)
摘要：
Project Recources...//1提取出资源procedure TForm1.Button1Click(Sender: TObject);begin with TResourceStream.Create(HInstance, 'SnapShot_EXE', RT_RCDATA) do begin SavetoFile('SnapShot.exe... 阅读全文
posted @ 2014-07-29 20:11
XE2011
阅读(782)
评论(0)
推荐(0)
摘要：
//屏蔽右键菜单procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);beginwith Msg dobeginif not IsChild(WebBrowser1.Handle, hWnd) then Exit;Handled := (message= ... 阅读全文
posted @ 2014-07-29 20:07
XE2011
阅读(439)
评论(0)
推荐(0)
摘要：
网页放大 网页缩小 WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50;
缩放网页 Ctrl+中键↑ 放大 Ctrl+中键↓ 缩小 constOLECMDID_OPTICAL_ZOOM = 63;varZoomIn: OleVariant;beginZoomIn := 10;WebBro... 阅读全文
posted @ 2014-07-29 20:06
XE2011
阅读(417)
评论(0)
推荐(0)
摘要：
撤销 重做 -
复制 剪切 粘贴 删除 -
全选 不选 ///编辑
///撤销 WebBrowser1.ExecWB(OLECMDID_REDO ,1);
///重做 WebBrowser1.ExecWB(OLECMDID_UNDO ,1);
///-
///复制 WebBrowser1.ExecWB(OLECMDID_COPY,1);
///剪切... 阅读全文
posted @ 2014-07-29 20:03
XE2011
阅读(220)
评论(0)
推荐(0)
摘要：
打印
页面设置
打印预览
文档属性 //------------------------------------------------------------------------------procedure WB_Print();beginForm1.WebBrowser1.ExecWB(OLECMDID_PRINT,1);end;//---------------... 阅读全文
posted @ 2014-07-29 20:02
XE2011
阅读(230)
评论(0)
推荐(0)
摘要：
编辑模式 浏览模式 设置焦点
//在使用前需要Webbrowser已经浏览过一个网页 否则错误 uses MSHTML;
///获取Webbrowser编辑模式里面的内容procedure EditMode();begin(Form1.WebBrowser1.Document as IHTMLDocument2).designMode := 'on';end;//-----------... 阅读全文
posted @ 2014-07-29 20:01
XE2011
阅读(395)
评论(0)
推荐(0)
摘要：
///HTML组件///后面的字符串为这个控件的ID号///直线Line(WebBrowser1.Document as IHTMLDocument2).execCommand('InsertHorizontalRule', True, '');///按钮Button(WebBrowser1.Document as I... 阅读全文
posted @ 2014-07-29 19:59
XE2011
阅读(250)
评论(0)
推荐(0)
摘要：
超链接 /取消超链接
插入/取消 书签
插入图片
粘贴图上CTRL+v
截图
插入表情GIF WEB背景色
WEB背景图片 WebBrowser1.OleObject.document.getElementById('bgDiv').currentStyle.BackGroundImage WebBrowser1.OleObject.document.body.currentStyle... 阅读全文
posted @ 2014-07-29 19:58
XE2011
阅读(176)
评论(0)
推荐(0)
摘要：
delphi 保存网页MHTuses ADODB_TLB, CDO_TLB, ComObj,MSHTML;{$R *.dfm}{能把网页如 WWW.QQ.COM保存为一个单文件 .MHT但不能把一个 A.HTM保存为一个单文件 .MHT}procedure WB_SaveAs_MHT(WB: TWe... 阅读全文
posted @ 2014-07-29 19:57
XE2011
阅读(518)
评论(0)
推荐(0)
摘要：
设置/获取 字体属性 名称 大小 粗体 斜体 下划线 删除线 颜色1 颜色2 uses MSHTML; //设置 //------------------------------------------------------------------------------procedure WB_SetFontName();begi... 阅读全文
posted @ 2014-07-29 19:56
XE2011
阅读(988)
评论(0)
推荐(0)
摘要：
自动滚动到最底端scrollUses MSHTML;{$R *.dfm}varScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begininc(ScrollPos, 10);if WebBrowser1.Document nil then(WebBrowser1.Document ... 阅读全文
posted @ 2014-07-29 19:51
XE2011
阅读(954)
评论(0)
推荐(0)
摘要：
保存网页. htmluses ActiveX;procedure TForm1.Button1Click(Sender: TObject);varpersist :IPersistfile;beginpersist := (webbrowser1.document as ipersistfile);persist.save('c:\a.html',false);end;proc... 阅读全文
posted @ 2014-07-29 19:41
XE2011
阅读(382)
评论(0)
推荐(0)
摘要：
TreeView节点拖拉操作1 //事先设置 TreeView1.DragMode= dmAutomatic; unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls; type TForm... 阅读全文
posted @ 2014-07-29 19:23
XE2011
阅读(373)
评论(0)
推荐(0)
摘要：
//这个拖拽的感觉不对
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls;typeTForm1 = class(TForm)TreeView1: TTreeView;procedure Tr... 阅读全文
posted @ 2014-07-29 19:20
XE2011
阅读(306)
评论(0)
推荐(0)
摘要：
function ItemExist(Text:string;TreeView:TTreeView):Boolean;var i: Integer;begin Result:=False; if (Trim(Text)'') then begin for i := 0 to TreeView.Items.Count-1 do if Trim(Text) = Trim(TreeV... 阅读全文
posted @ 2014-07-29 19:14
XE2011
阅读(244)
评论(0)
推荐(0)
摘要：
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var node: TTreeNode;
begin if Boolean(TreeView1.GetNodeAt(X,Y)) then begin node := TreeView1.GetNo... 阅读全文
posted @ 2014-07-29 19:13
XE2011
阅读(164)
评论(0)
推荐(0)
摘要：
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var Node: TTreeNode;begin with TreeView1 do begin Node := GetNodeAt(X, Y); ShowHint := (Node nil); ... 阅读全文
posted @ 2014-07-29 19:12
XE2011
阅读(630)
评论(0)
推荐(0)
摘要：
添加项目
TreeView1.Items.Add(nil,'ABC'); 删除选中的节点
TreeView1.Selected.Delete; 删除鼠标右键选中的节点 var node1:TTreeNode; procedureTForm1.TreeView1MouseMove(Sender:TObject;Shift:TShiftState;X, Y... 阅读全文
posted @ 2014-07-29 19:10
XE2011
阅读(135)
评论(0)
推荐(0)
摘要：
如何防止ListView控件闪烁
beginupdate()和endupdate()之间写代码 ListView1.Items.BeginUpdate;ListView1.Items.Add('AAA');ListView1.Items.EndUpdate; 来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 19:09
XE2011
阅读(323)
评论(0)
推荐(0)
摘要：
//TListView列表拒绝添加重复信息
procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginif (Trim(Edit1.Text)'') thenbeginfor i := 0 to ListView1.Items.Count-1 doif Trim(Edit1.Te... 阅读全文
posted @ 2014-07-29 19:08
XE2011
阅读(236)
评论(0)
推荐(0)
摘要：
ListView往TreView里面拖拽 unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls; type TForm1=class(TForm) TreeView1:T... 阅读全文
posted @ 2014-07-29 19:04
XE2011
阅读(166)
评论(0)
推荐(0)
摘要：
ListView添加项目带序列 function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;vars: string;I,j: Integer;beginResult:=False;if listview1.Selected =nil thenexit;for i := 0 ... 阅读全文
posted @ 2014-07-29 18:54
XE2011
阅读(337)
评论(0)
推荐(0)
摘要：
//ListView删除选中的多项目function DeleteMultSelItems(ListView:TListView):Boolean;varI: Integer;beginResult:=False;if ListView.Selected =nil then Exit;for i := ListView.items.count-1 downto0 d... 阅读全文
posted @ 2014-07-29 18:53
XE2011
阅读(221)
评论(0)
推荐(0)
摘要：
有问题
//ListBox选中的项目移动到第1位 Listbox1.Items.Move(ListBox1.ItemIndex,0); //ListView选中的项目移动到第1位 procedure TForm1.Button5Click(Sender: TObject);varsel:String;beginwith ListView... 阅读全文
posted @ 2014-07-29 18:53
XE2011
阅读(691)
评论(0)
推荐(0)
摘要：
ListView返回选中的多项目 procedure TForm1.Button3Click(Sender: TObject);vars: string;I: Integer;beginfor i := 0 to listview1.items.count - 1 dobeginif listview1.items[i].selected then... 阅读全文
posted @ 2014-07-29 18:52
XE2011
阅读(166)
评论(0)
推荐(0)
摘要：
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls,StdCtrls; type TForm1=class(TForm) ListView1:TListView; ... 阅读全文
posted @ 2014-07-29 18:51
XE2011
阅读(369)
评论(0)
推荐(0)
摘要：
为TListBox添加水平滚动条
实例说明
TListBox组件是一个较为常用的列表组件，在默认情况下该组件是没有水平滚动条的，所以文字过长会显示不完全，在文字较短的情况下还可以，但是如果一行的文字很长的话也不行。本例为TListBox添加了一个水平的滚动条，运行本程序单击【添加滚动条】按钮在TListBox组件中就会增加一个水平滚动条，运行效果如图1所示。 图1 为TListBox... 阅读全文
posted @ 2014-07-29 18:49
XE2011
阅读(455)
评论(0)
推荐(0)
摘要：
ComboBox1.Perform(CB_SETDROPPEDWIDTH, 200, 0); 下拉高度
ComboBox1.DropDownCount:=20; {$externalsym cb_geteditsel}cb_geteditsel= $0140;{$externalsym cb_limittext... 阅读全文
posted @ 2014-07-29 18:46
XE2011
阅读(270)
评论(0)
推荐(0)
摘要：
//返回ListBox选中的多项目 procedure TForm1.Button2Click(Sender: TObject);vari:Integer;s:string;beginfor i:=0 to ListBox1.Items.Count-1 doif ListBox1.Selected[i] thens:=s+ListBox1.Items[i]+#... 阅读全文
posted @ 2014-07-29 18:44
XE2011
阅读(279)
评论(0)
推荐(0)
摘要：
//动态创建组件TEditprocedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);varEdit:TEdit;beginEdit:=Tedit.Create(nil);Edit.parent :=Self;Edit.Show... 阅读全文
posted @ 2014-07-29 18:43
XE2011
阅读(242)
评论(0)
推荐(0)
摘要：
//限制字符的输入{ 只能输入以下字符 }procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin If (Key in ['\', '/', ':', '*', '?', '', '|']) then Key := #0; If not(Key in ['0' .. '9', 'a' .. 'z', 'A... 阅读全文
posted @ 2014-07-29 18:42
XE2011
阅读(156)
评论(0)
推荐(0)
摘要：
停留在窗体下面 处于
force my form to stay on the bottom?unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)private... 阅读全文
posted @ 2014-07-29 18:39
XE2011
阅读(131)
评论(0)
推荐(0)
摘要：
VCL BitMap Style Proceject Options->Application->Appearance
选择几个样式
使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);beginTStyleManager.TrySetStyle('Amakrits');end; ... 阅读全文
posted @ 2014-07-29 18:38
XE2011
阅读(939)
评论(0)
推荐(0)
摘要：
delphi 判断是否出现滚动条 if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) 0 then ShowMessage('Vertical scrollbar is visible!'); if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) ... 阅读全文
posted @ 2014-07-29 18:26
XE2011
阅读(461)
评论(0)
推荐(0)
摘要：
在运行时移动控件 procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);constSC_DragMove = $F012;beginBeginReleaseCapture;Button1.pe... 阅读全文
posted @ 2014-07-29 18:23
XE2011
阅读(127)
评论(0)
推荐(0)
摘要：
//function GetUser: string; //获取本机当前用户名varBuffer: array[0..255] of Char;Size: cardinal;beginSize := 256;if GetUserName(Buffer, Size) thenbeginResult := BufferendelsebeginResul... 阅读全文
posted @ 2014-07-29 18:22
XE2011
阅读(335)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(S... 阅读全文
posted @ 2014-07-29 18:20
XE2011
阅读(408)
评论(0)
推荐(0)
摘要：
(*功能：IniFormState1 保存和读取 窗体的大小2 保存和读取 窗体在屏幕上的位置//让程序第1次出现在屏幕的中心点获取屏幕的中心点POSITION:poScreenCenter //不行*)//implementation//{$R *.dfm}uses IniFiles;//引用IniFiles///写入信息到ini文件 procedureWriteformStat... 阅读全文
posted @ 2014-07-29 18:19
XE2011
阅读(360)
评论(0)
推荐(0)
摘要：
EDIT Ini写Ini配置
usesIniFiles; {$R*.dfm} function IniFileName:string;
begin Result:=ExtractFilePath(Application.ExeName)+'Settings.ini';
end;
procedureSaveConfig(Edit:TEdit); beginwithTI... 阅读全文
posted @ 2014-07-29 18:17
XE2011
阅读(185)
评论(0)
推荐(0)
摘要：
效果不正确unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Bu... 阅读全文
posted @ 2014-07-29 18:04
XE2011
阅读(531)
评论(0)
推荐(0)
摘要：
//这样就是左键单击mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );// 按下mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );//弹起//这样就是双击了!mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );// 按下mouse_event( MOU... 阅读全文
posted @ 2014-07-29 17:57
XE2011
阅读(1860)
评论(0)
推荐(0)
摘要：
模拟TAB键 (2013/6/7 22:35:29)SelectNext(ActiveControl,True,True); 屏蔽Alt+F4关闭键 (2013/6/7 22:35:39)启动某些程序，使用Alt+F4键，可以快速的退出程序，可是如果是做一个屏幕保护程序的话，那么这个方便将成为绊脚石，所以有必要令该功能键失去作用，所以我们使用了窗体的OnKeyDown事件来检测击键：proced... 阅读全文
posted @ 2014-07-29 17:55
XE2011
阅读(185)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, AppEvnts, ComCtrls;typeTForm1 = class(TForm)StatusBar1: TStatusBar;Applicatio... 阅读全文
posted @ 2014-07-29 17:54
XE2011
阅读(1151)
评论(0)
推荐(0)
摘要：
将窗体资源分装到DLL中并且调用用Delphi生成DLL并封装窗体的示例调用Dll里面的窗体
DLL文件 library Project2;{ Important note about DLL memory management: ... 阅读全文
posted @ 2014-07-29 17:52
XE2011
阅读(433)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;//定义类型要与原函数一样function GetUserDefaultUILanguage():Integer;external 'Ke... 阅读全文
posted @ 2014-07-29 17:47
XE2011
阅读(655)
评论(0)
推荐(0)
摘要：
Dll的创建与调用 File ->New->Other->Dll Wizard
DLL的创建
//可以将本代码复制粘贴到项目中
library Project1; uses SysUtils, Classes, Windows, Forms; {$R *.res} function Min(x,y:Integer):Integer;stdcall;
begin i... 阅读全文
posted @ 2014-07-29 17:45
XE2011
阅读(568)
评论(0)
推荐(0)
摘要：
//刷新系统桌面
//方法1 uses ShlObj; SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); -------------------------------------------------------------------------------- //方法2 SendMessage(FindWindow(... 阅读全文
posted @ 2014-07-29 17:44
XE2011
阅读(169)
评论(0)
推荐(0)
摘要：
{turn monitor off}SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); //关闭显示器{turn monitor on}SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 17:42
XE2011
阅读(143)
评论(0)
推荐(0)
摘要：
C:\Users\ADMINI~1\AppData\Local\Temp\ //GetTempPath获得临时文件目录(Temp文件夹) function TempPath:String;vartmp:array [0..MAX_PATH] of Char;beginGetTempPath(MAX_PATH,tmp);Result:= tmp;end; proc... 阅读全文
posted @ 2014-07-29 17:42
XE2011
阅读(318)
评论(0)
推荐(0)
摘要：
//关闭计算器 procedure TForm1.Button1Click(Sender: TObject); var HWndCalculator: HWnd; begin HWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄 if HWndCalculator 0 then SendMessage(HW... 阅读全文
posted @ 2014-07-29 17:40
XE2011
阅读(362)
评论(0)
推荐(0)
摘要：
var s:string='aaa'; s1:string; procedureTForm1.Button1Click(Sender:TObject); begin s1:=Format('确定要删除%s这个文件夹吗?',[s]); ifApplication.MessageBox(PAnsiChar(s1),'提示',MB_YESNO... 阅读全文
posted @ 2014-07-29 17:39
XE2011
阅读(130)
评论(0)
推荐(0)
摘要：
保存Image1图片 procedure TForm2.Button1Click(Sender: TObject);beginwith TSaveDialog.Create(nil) dobeginFilter:='JPEG file(*.jpg;*.jpeg)|*.jpg;*.jpeg|PNG file(*.png)|*.png|Bit... 阅读全文
posted @ 2014-07-29 17:37
XE2011
阅读(123)
评论(0)
推荐(0)
摘要：
捕捉整个桌面的图片 但不捕捉自己这个窗体 procedure TForm2.Button3Click(Sender: TObject);varBitmap: Tbitmap;BitmapCanvas: TCanvas;dc: HDC;DeskTopWidth,DeskTopHeight:Integer;beginDeskTopWidth:= Screen.Widt... 阅读全文
posted @ 2014-07-29 17:36
XE2011
阅读(231)
评论(0)
推荐(0)
摘要：
//Canvas 在Image控件中绘制文字procedure TForm1.Button1Click(Sender: TObject);beginimage1.Canvas.Font.Size:= 72; //设置文字大小image1.Canvas.TextOut(1,1,'Delphi'); //输出文字end;来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 17:35
XE2011
阅读(280)
评论(0)
推荐(0)
摘要：
//Canvas绘图Canvas方法 ＣＤＣ方法 功能Arc Arc 画一个椭圆弧Chord Chord 画一根玄。CopyRect 拷贝指定矩形区域中图象到指定矩形Draw BitBlt 拷贝位图Ellipse Ellipse 画椭圆FillRect PaintRgn 使用刷子填充一个又一个矩型FloodFill FloodFill 用当前刷子填充区域FrameRect Fr... 阅读全文
posted @ 2014-07-29 17:34
XE2011
阅读(210)
评论(0)
推荐(0)
摘要：
如何背景透明 unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;typ... 阅读全文
posted @ 2014-07-29 17:32
XE2011
阅读(408)
评论(0)
推荐(0)
摘要：
http://stackoverflow.com/questions/11459568/issue-with-rebuilding-and-saving-gifs-using-tgifimage 将图片序列如 01.jpg 02.jpg 03.jpg... 保存GIF是什么原理 多个JPG文件 合并成一个GIF文件 写入uses Vcl.Imaging.GIFImg, Vcl.Imaging.p... 阅读全文
posted @ 2014-07-29 17:31
XE2011
阅读(1020)
评论(0)
推荐(0)
摘要：
拷贝剪贴板图像到窗体 procedureTBitmap.LoadFromClipboardFormat(AFormat:Word;AData:THandle;APalette:HPALETTE);
uses Clipbrd;
procedureTForm1.Button1Click(Sender:TObject); var Bmp:TBitmap; begin... 阅读全文
posted @ 2014-07-29 17:29
XE2011
阅读(186)
评论(0)
推荐(0)
摘要：
uses pngimage;{显示 png 图片}procedure TForm1.Button2Click(Sender: TObject);varpng: TPngImage;beginpng := TPngImage.Create;png.LoadFromFile('C:\Temp\Test.png');Canvas.Draw(0, 0, png);png... 阅读全文
posted @ 2014-07-29 17:28
XE2011
阅读(216)
评论(0)
推荐(0)
摘要：
将图片转换成字符 delphi的*.dfm文件
mht的文件 //------------------------------------------------------------------------------ //jpg转换为txt字符串 //JpegToText('C:\1.jpg', 'C:\1.txt');functionJpegToText(jpgFileN... 阅读全文
posted @ 2014-07-29 17:27
XE2011
阅读(756)
评论(0)
推荐(0)
摘要：
// 复制图片的一部分procedure TForm1.Button1Click(Sender: TObject);varBitmap: TBitmap;MyRect: TRect;beginMyRect := Rect(10,10,100,100);//定义复制范围Bitmap := TBitmap.Create; //生成Bitmap对象Bitmap.Load... 阅读全文
posted @ 2014-07-29 17:26
XE2011
阅读(153)
评论(0)
推荐(0)
摘要：
function ReverseString(s: string): string;var i: integer; s1:string;begin s1 := ''; for i := 1 to Length(s) do s1 := s[i] + s1; Result:=s1;end;procedure TForm1.Button1Click(Sender: TObject);be... 阅读全文
posted @ 2014-07-29 17:15
XE2011
阅读(135)
评论(0)
推荐(0)
摘要：
uses ActiveX;
procedure TForm1.BtnNewClick(Sender: TObject);var ID: TGUID; S: string;begin if CoCreateGuid (Id) = s_OK then begin s := GUIDToString (Id); Memo1.Lines.Add (S); end;end;
来自... 阅读全文
posted @ 2014-07-29 17:14
XE2011
阅读(188)
评论(0)
推荐(0)
摘要：
//获得汉字字符个数function ChineseWordsCount(text:string):Integer;var i,sum,e,c,t: Integer;begin Result:=0; c := 0; sum := Length(text); if Sum=0 then exit; for i := 0 to sum do begin if Ord(text[... 阅读全文
posted @ 2014-07-29 17:13
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
随机字符串生成functionTfrmPWGenerate.btnGenerateClick(Sender: TObject):string;{max length of generated password}constintMAX_PW_LEN=10;vari: Byte;s:string;begin{if you want to use the 'A..Z' ch... 阅读全文
posted @ 2014-07-29 17:12
XE2011
阅读(160)
评论(0)
推荐(0)
摘要：
判断字符串是否一样.TXT .txt .TxT 为一样的SameTextCompareStrfunctionSameText(constS1, S2:string): Boolean; ifSameText('.txt','.tXT')then ShowMessage('Same'); 来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 17:11
XE2011
阅读(297)
评论(0)
推荐(0)
摘要：
//将edit1中的每个字符串改为首字母大写procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginwith Sender as Tedit doif (text = '') or (text[selstart] = ' ') or ( sellength = length( text ) ... 阅读全文
posted @ 2014-07-29 17:08
XE2011
阅读(289)
评论(0)
推荐(0)
摘要：
把7za.exe 复制到 C:\Windows\System32下面 按时间命名备份 备份前 请退出WIZ C:\Users\Administrator\Desktop\7za.exe a C:\Users\Administrator\Desktop\abc.7z C:\Users\Administrator\Desktop\test set m... 阅读全文
posted @ 2014-07-29 16:59
XE2011
阅读(278)
评论(0)
推荐(0)
摘要：
7za.exe x-aoa完美国际补丁.7z7za.exe x -aoa 完美国际补丁.7z -o"C:\Users\Admin\AppData\Local\Temp\完美国际补丁"来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 16:58
XE2011
阅读(1011)
评论(0)
推荐(0)
摘要：
procedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle, SW_HIDE); SetWindowLong(Self.handle, GWL_EXSTYLE, GetWindowLong(Self.handle, GWL_EXSTYLE) ); // 不在alt+tab中出现end;来自为... 阅读全文
posted @ 2014-07-29 16:57
XE2011
阅读(174)
评论(0)
推荐(0)
摘要：
对文件和文件夹都有效FileSetAttr('D:\Administrator\Desktop\patcher\Win32\Release\config\element\update',faHidden);声明：function FileSetAttr ( const FileName : string; Attributes : Integer ) : Integer;描述：FileSetA... 阅读全文
posted @ 2014-07-29 16:57
XE2011
阅读(295)
评论(0)
推荐(0)
摘要：
procedure TForm1.FormCreate(Sender: TObject);begin Label1.AutoSize := False; Label1.WordWrap := True; Label1.Text := 'This is my caption that I would like to be wrappedThis is my caption ... 阅读全文
posted @ 2014-07-29 16:56
XE2011
阅读(204)
评论(0)
推荐(0)
摘要：
//MmSystem播放Wav格式声音//MmSystem 支持 *.wav声音格式 snd ->SoundRecorderuses MmSystem; //引用MmSystem//播放系统声音{.Default //这个只要是字符串('str')就好MailBeepSystemExclamationSystemExitSystemHand}PlaySound ('SystemExit',0,... 阅读全文
posted @ 2014-07-29 16:53
XE2011
阅读(594)
评论(0)
推荐(0)
摘要：
uses shlobj;function GetDesktopFolder():string;var pItem: PItemIDList; temp: array[0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, pItem); //CSIDL_DESKTOP：桌面； FillChar(temp... 阅读全文
posted @ 2014-07-29 16:52
XE2011
阅读(357)
评论(0)
推荐(0)
摘要：
关键点
控制滚动条在最下面 实现过程 SendMessage(form1.Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0); 图 备注 相关链接 来自为知笔记(Wiz) 阅读全文
posted @ 2014-07-29 16:51
XE2011
阅读(562)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);Var OSVI:OSVERSIONINFO;begin OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO); GetVersionEx(OSVI); Caption:=IntToStr(OSVI.dwMinorVersion)+','... 阅读全文
posted @ 2014-07-29 16:50
XE2011
阅读(259)
评论(0)
推荐(0)
摘要：
program Manager;uses Forms,Windows,Messages, Unit1 in 'Unit1.pas' {WMGJ_SERVERFORM1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}, Unit4 in 'Unit4.pas' {Form4};{$R *.res}var AppT... 阅读全文
posted @ 2014-07-29 16:49
XE2011
阅读(139)
评论(0)
推荐(0)
摘要：
{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}function StartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s);if s>=60 thenbeginInc(m);... 阅读全文
posted @ 2014-07-29 16:47
XE2011
阅读(196)
评论(0)
推荐(0)
摘要：
procedure TForm1.FormCreate(Sender: TObject);beginedtHour.Clear;edtMinutes.Clear;edtHs.Clear;edtSec.Clear;end;procedure TForm1.Button1Click(Sender: TObject);begintryif edtHou... 阅读全文
posted @ 2014-07-29 16:47
XE2011
阅读(157)
评论(0)
推荐(0)
摘要：
//判断文件是否正在被使用function FileINUse(filename:String):boolean;varusein:file;beginresult:=false;assignfile(usein,FileName);tryreset(Usein);excepton E:EInOutError dobeginif e.Er... 阅读全文
posted @ 2014-07-29 16:46
XE2011
阅读(289)
评论(0)
推荐(0)
摘要：
step1 在窗体上打个矩形的洞｛鼠标可以穿透这个窗体｝procedure MakeRectHole(Ctrl:TWinControl;Form:TForm);var Rgn1, Rgn2: HRGN;begin Rgn1 := CreateRectRgn(0,0, Form.Width, Form.Height); Rgn2 := CreateRectRgn(Ctrl.Left, Ctrl... 阅读全文
posted @ 2014-07-29 16:45
XE2011
阅读(243)
评论(0)
推荐(0)
摘要：
遍历目录及子目录 unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Memo1:TMemo; Button1:... 阅读全文
posted @ 2014-07-29 16:44
XE2011
阅读(245)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = clas... 阅读全文
posted @ 2014-07-29 16:42
XE2011
阅读(298)
评论(0)
推荐(0)
摘要：
添加项目 procedure TForm1.Button1Click(Sender: TObject);beginwith listview1.Items dobeginAdd.Caption:='1111111';Add.Caption:='2111111';Add.Caption:='3111111';end;end; ... 阅读全文
posted @ 2014-07-29 16:41
XE2011
阅读(168)
评论(0)
推荐(0)
摘要：
//获取一个文件夹下的所有文件
//不包括文件夹里面的文件
//ListBox1.Items:=searchfile('Z:\'); //注意,path后面要有'\'; functionSearchfile(path:string):TStringList; var SearchRec:TSearchRec; found:integer; begin Result:=T... 阅读全文
posted @ 2014-07-29 16:40
XE2011
阅读(2611)
评论(0)
推荐(0)
摘要：
Delphi连接MySQL真麻烦，研究了一天，从网上找了无数文章，下载了无数插件都没解决。最后返璞归真，老老实实用ADO来连接，发现也不是很顺利，但最终还是连接成功了。多少有点心得：ADO各个组件的作用和联系必须清楚，否则设置起来很容易混乱。总结一下用ADO连接MySQL5.1要点：1、需要下载MySQL的ODBC支持，我用的官网mysql-connector-odbc-5.1.7-win32.m... 阅读全文
posted @ 2014-07-29 16:39
XE2011
阅读(848)
评论(0)
推荐(0)
摘要：
TransparentColor:=true; TransparentColorValue:=clFuchsia; Color:= TransparentColorValue; BorderStyle:=bsNone;delphi 窗体透明http://hi.baidu.com/duduppp/item/f347df3a16dbb9607c034bd5来自为知笔记(Wiz... 阅读全文
posted @ 2014-07-29 16:39
XE2011
阅读(336)
评论(0)
推荐(0)
摘要：
unit untCpuInfo;interface{ 获取 CPU 制造商 }function GetCpuFactory: String;{ 获取 CPU 家族系统 }function GetCpuFamily: Cardinal;{ 获取 CPU 型号 }function GetCpuModel: Cardinal;{ 获取 CPU 步进 }function GetCpuStepping: C... 阅读全文
posted @ 2014-07-29 16:38
XE2011
阅读(341)
评论(0)
推荐(0)
摘要：
//Canvas.TextOut文字保存为图片//Delphi开发案例精选，使用TextOut在画布上画图procedure TForm1.Button1Click(Sender: TObject);varMy_Image:Timage;i:integer;begintryMy_Image:=Timage.Create(nil);My_Image.Width:=me... 阅读全文
posted @ 2014-07-29 16:37
XE2011
阅读(229)
评论(0)
推荐(0)
摘要：
uses Jpeg;function BMPtoJPG(var BMPpic, JPGpic: string): boolean;var Bitmap: TBitmap; JpegImg: TJpegImage;begin result := False; Bitmap := TBitmap.Create; try Bitmap.LoadFromFile(BMPpic); J... 阅读全文
posted @ 2014-07-29 16:37
XE2011
阅读(115)
评论(0)
推荐(0)
浙公网安备 33010602011771号