摘要：
//RegisterHotKey注册全局热键注册全局热键private{ Private declarations }procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;{varForm1: TForm1; }HotKeyId:Integer; //声明变量procedure TForm1.HotKeyDown(var Msg: T... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(608)
评论(0)
推荐(0)
摘要：
//listbox dragDrop DragOverprocedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);beginAccept := True;end;procedure TForm1.Edit1DragDrop(Sender, ... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(185)
评论(0)
推荐(0)
摘要：
功能说明：openpicturedialog1在对话框中预览图片procedureTForm1.Button1Click(Sender: TObject);beginifOpenPictureDialog1.Executethenbeginshowmessage(OpenPictureDialog1.FileName);end;end;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(145)
评论(0)
推荐(0)
摘要：
{Move ListBox Items with the Mouse (Drag and Drop).1,Drop a TListBox (named ListBox1) on a form2,Add several strings using the Items property3,Set ListBox1's DragMode to dmAutomatic (in Form's OnCreat... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(292)
评论(0)
推荐(0)
摘要：
//reapeat until计算1累加到100的和procedure TForm1.Button1Click(Sender: TObject);vari,sum:integer;begini:=1;sum:=0;repeatsum:=sum+i;i:=i+1;until i>100;showmessage('1ÀÛ¼Óµ½100µÄºÍΪ'+inttostr(sum));end;通过 Wiz ... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(263)
评论(0)
推荐(0)
摘要：
//使窗体标题栏文字右对齐private{ Private declarations }protectedprocedure CreateParams(var Params: TCreateParams); override;procedure TForm1.CreateParams(var Params: TCreateParams);begininherited;params.ExStyle:... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(166)
评论(0)
推荐(0)
摘要：
功能说明：PostMessage模拟按键procedureTForm1.Button1Click(Sender: TObject);//模拟在Edit控件中按下a键beginPostMessage(Edit1.Handle, WM_KEYDOWN,65,0);end;procedureTForm1.Timer1Timer(Sender: TObject);//模拟在窗体中按下Tab键beg... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(1030)
评论(0)
推荐(0)
摘要：
//Perform_程序运行时拖动组件//那个控件必须是少状态正的组件publicprocedure AppMessage(var msg: tmsg;var handlede: boolean);{ Public declarations }procedure TForm1.FormCreate(Sender: TObject);beginapplication.OnMessage := App... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(135)
评论(0)
推荐(0)
摘要：
//浮动工具栏{窗体是否要隐藏，重要的是要判断是否在操作中，通过窗体的Active属性，可以确定窗体是否具有焦点。在窗体有焦点时，该窗体正在被操作，这时需要完全显示在屏幕当中；如果窗体没有焦点，通过设置窗体到屏幕的高度来确定窗体的隐藏部分。在TTimer组件的OnTimer事件中，窗体没有焦点时，隐藏工具栏.在窗体上添加TTimer组件和TImage组件设置窗体Form1的属性}{以图片的形状作为... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(176)
评论(0)
推荐(0)
摘要：
{使用任意组件拖动窗体} //PerformCTRLS(Form1,Button); //放在控件的MouseDown事件下 procedurePerformCTRLS(Form:TForm;Button:TMouseButton); begin ifButton=mbLeftthen begin ReleaseCapture; Form.Perform(wm_syscommand,$F012,0... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
PageControl1 tabsheet1.Show;tabsheet2.Show;tabsheet3.Show;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(94)
评论(0)
推荐(0)
摘要：
//overload 函数或过程重载重载的思想很简单：编译器允许你用同一名字定义多个函数或过程，只要它们所带的参数不同。实际上，编译器是通过检测参数来确定需要调用的例程。下面是从VCL的数学单元（Math Unit）中摘录的一系列函数：function Min (A,B: Integer): Integer; overload;function Min (A,B: Int64): Int64; o... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(177)
评论(0)
推荐(0)
摘要：
功能说明：MapWindowPoints限制鼠标的位置varpos: TRect;{公共声明}procedureTForm1.Button1Click(Sender: TObject);beginpos:=panel1.BoundsRect;MapWindowPoints(handle,0, pos,2);// 座标换算ClipCursor(@pos);end;procedureTForm1.Pa... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(205)
评论(0)
推荐(0)
摘要：
//窗口融合技术{创建2个窗体 form1 form2panelbutton1button2设置panel的DockSite:=true;}//代码没用procedure TForm1.Button1Click(Sender: TObject);beginform2.ManualDock(Form1.Panel1,nil,alNone);end;procedure TForm1.Button2Cl... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(338)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin{直接加载当前目录下的文件,文件必须得存在，否则出错}Memo1.Lines.LoadFromFile('Unit1.pas');end;procedure TForm1.Button2Click(Sender: TObject);begin{直接在当前程序目录下保存文件，如果文件不存在程序会自... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(278)
评论(0)
推荐(0)
摘要：
{在关闭窗口前加入确认对话框} //调用frmCloseQuery(CanClose); //放在FormCloseQuery的下面 procedurefrmCloseQuery(varCanClose:Boolean); begin ifapplication.MessageBox('退出请点“是”'+#13#10+'返回请点“否”','提示',MB_YESNO+MB_ICONQUEStION)... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(170)
评论(0)
推荐(0)
摘要：
//MessageBeep//LongIntBOOL MessageBeep(UINT uType //Cardinal type);//参数-1MB_OK = 0;MB_ICONHAND = 16;MB_ICONQUESTION = 32;MB_ICONEXCLAMATION = 48;MB_ICONASTERISK = 64;//exampleMessageBeep(Cardinal(-1))... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(225)
评论(0)
推荐(0)
摘要：
{memo1.Font.stylefsBold 粗体fsItalic 斜体fsUnderline 下划线fsStrikeOut 删除线返回值：Boolean}//style1memo1.Font.style:=[fsBold,fsItalic,fsUnderline,fsStrikeOut];//style2memo1.Font.style:=[fsBold];通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(117)
评论(0)
推荐(0)
摘要：
//Modified判断Tedit TMemo类型的文件是否修改过procedureTForm1.Button1Click(Sender: TObject);beginif edit1.Modifiedthen ShowMessage('edit1 Modified') else ShowMessage('edit1 没有修改');if Memo1.Modifiedthen ShowMessage... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(195)
评论(0)
推荐(0)
摘要：
//给MDI窗体加背景//设置Form1窗体的FormStyle属性为fsMDIForm//设置Form2窗体的FormStyle属性为fsMDIChild// Image控件 Bmp格式图片privateFClientInstance : TFarProc;FPrevClientProc : TFarProc;Procedure ClientWndProc(Var Message: TMessa... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(184)
评论(0)
推荐(0)
摘要：
功能说明：//setlength取得字符串长度 设置字符长度//取得字符串长度length();procedureTForm1.btn1Click(Sender: TObject);varstr:string;beginstr:='abcd';ShowMessage(IntToStr(length(str)));end;//设置字符长度setlength()procedureTForm1.Butt... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(344)
评论(0)
推荐(0)
摘要：
//SetLength为了有效地分配所需的存储空间，你可以用SetLength 过程设定字符串的最大长度值： procedure TForm1.Button1Click(Sender: TObject);var str1 :string;begin str1:= 'Hello World'; SetLength (str1, 3);//设定str1 的字符长度为3个字符 edit1.text :=... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(232)
评论(0)
推荐(0)
摘要：
通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(117)
评论(0)
推荐(0)
摘要：
功能说明：//SelectDirectory实现文件夹的选定(设置位置)uses FileCtrl;procedureTForm1.Button1Click(Sender: TObject);vardir:String;beginif SelectDirectory(dir,[],500) then Edit1.text:=Dir;end;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(433)
评论(0)
推荐(0)
摘要：
//SelectDirectory在Delphi中定位文件夹位置function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;function SelectDirectory(const Caption: string; const Root: WideStri... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(245)
评论(0)
推荐(0)
摘要：
//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender: TObject);//直接定位文件' 打开一个文件beginOpenDialog1.Execute;//执行“打开”文件对话框Label1.Caption:=OpenDialog1.FileName;//将返回的结果值传递给控件Label1//要注意，只有当用户... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(420)
评论(0)
推荐(0)
摘要：
//Screen获取桌面分辨率大小{Screen.Width 宽Screen.Height 高这样可以根据显示器的分辨率信息设置窗体大小及位置}procedure TForm1.Button1Click(Sender: TObject);beginSelf.Memo1.Lines.Add('DeskTopResolution');Self.Memo1.Lines.Add('Width :'+Int... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(188)
评论(0)
推荐(0)
摘要：
功能说明：Screen.Cursor把光标隐藏一段时间varMouseHide: Boolean;{在公共部分声明}procedureDoMouse;beginifMouseHidethenbeginScreen.Cursor:=crDefault;{ 恢复鼠标 }MouseHide:=False;endelseForm1.Timer1.Enabled:=True;end;procedureTFo... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(211)
评论(0)
推荐(0)
摘要：
//SavetoFile bmp文件转换成 icoprocedure TForm1.Button1Click(Sender: TObject);beginwith Image1.Picture dobeginSavetoFile('C:\frombmp.ico');end;end;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(135)
评论(0)
推荐(0)
摘要：
//RichEdit1// 设置颜色Color{设置颜色后开始选中的部分仍然是选中的}//richedit1.SelAttributes.Colorprocedure TForm1.Button1Click(Sender: TObject);beginRichEdit1.SelAttributes.Color := clRed;end;// 对ColorBox1procedure TForm1.B... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(204)
评论(0)
推荐(0)
摘要：
//reg怎样存取注册表信息uses Registry;//放在uses下面varForm1: TForm1;My_key:Tregistry;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); //WriteStringbeginMy_key:=Tregistry.Create;My_key.RootKe... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(130)
评论(0)
推荐(0)
摘要：
//获得操作系统的序列号uses Registry;procedure TForm1.Button1Click(Sender: TObject);//Windows XP有效varreg: TRegistry;result:string;beginResult := '';reg := TRegistry.Create; //生成注册表对象with reg dobeginRootKey := HK... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(144)
评论(0)
推荐(0)
摘要：
功能说明：为程序创建快捷方式uses registry,ActiveX,Comobj,Shlobj;constIID_IPersistFile: TGUID=(D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));function GetShellFolder (constfolder:string):string... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(177)
评论(0)
推荐(0)
摘要：
//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormCreate(Sender: TObject);begin ShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中图标 SetWindowLong(Application.Handle, GWL_EXSTYLE... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(684)
评论(0)
推荐(0)
摘要：
//SetWindowLong在按钮中显示两行文字procedure TForm1.FormCreate(Sender: TObject);beginSetWindowLong(button1.Handle,gwl_style,getwindowlong(button1.Handle,gwl_style)or bs_multiline);button1.Caption := '退'+ #13 +'... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(206)
评论(0)
推荐(0)
摘要：
//SetWindowLong代码设置窗体borderStyle风格 TOOLWINDOWSetWindowLong(self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(340)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin//隐藏标题栏SetWindowLong(Form1.Handle,GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);H... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(1399)
评论(0)
推荐(0)
摘要：
//动态创建窗体和释放窗体{在Delphi中窗体是TForm类的子类，在程序运行过程中，可以动态创建这个类的实例对象。首先声明一个窗口对象，然后调用TForm类的Create方法创建对象。Constructor Create(AOwner:TComponent);AOwner 窗口的拥有者可以调用 Show或者ShowModal方法将窗口显示 出来最后用 Free方法释放窗体资源。创建2个窗体fo... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(340)
评论(0)
推荐(0)
摘要：
{修改目标窗口标题} //调用SetWindowTextA('Form1','HellWord'); functionSetWindowTextA(oldtext:string;newtext:string):Boolean; varh:HWND; begin Result:=false; h:=Findwindow(nil,Pchar(oldtext));//PansiChar=Pchar se... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(775)
评论(0)
推荐(0)
摘要：
功能说明：SetWindowRgn文字窗体procedureTForm1.FormCreate(Sender: TObject);varrgn:HRGN;beginBeginPath(Canvas.Handle);//绘制的开始路径SetBkMode( Canvas.Handle, TRANSPARENT );Canvas.Font.Name:='宋体';//设定字体Canvas.Font.Siz... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(238)
评论(0)
推荐(0)
摘要：
功能说明：获取文件属性uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);varfilename :string;sei : TShellExecuteInfo;beginif opendialog1.Execute thenbeginfilename:=opendialog1.FileName;FillChar(sei,Siz... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
//ShellExecuteShellExecute(hWnd: HWND; {指定父窗口句柄}Operation: PChar; {指定动作, 譬如: open、print}FileName: PChar; {指定要打开的文件或程序}Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}Directory: PChar; {缺省目录}ShowCmd: Integer {打开选项}): HINST; {执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}//返回值可能的错误有:= 0 {内存不足}ERROR_FILE_NO 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(371)
评论(0)
推荐(0)
摘要：
//调用搜索引擎uses ShellAPI;//google web searchprocedure TForm1.Button1Click(Sender: TObject);varSearchStr:PWideChar;SearchEngineStr:string;beginSearchEngineStr:='http://search.yahoo.com/search?p=';SearchSt... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(196)
评论(0)
推荐(0)
摘要：
//托盘程序完整版本{需要控件ImageList1PopupMenu1其他:2个Icon图标}uses Shellapi;{引入Shellapi}{在Interface的uses下面定义}ConstMy_IconEvent = WM_USER + 1000;private{ Private declarations }myIcon:TNotifyIcondata;NormalIcon,Disabl... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(166)
评论(0)
推荐(0)
摘要：
{隐藏任务栏}procedure TForm1.Button1Click(Sender: TObject);varwndHandle : THandle;wndClass :array [0..50] of Char;beginStrPCopy(@wndClass[0],'Shell_TrayWnd');wndHandle:=FindWindow(@wndClass[0],nil);ShowWin... 阅读全文
posted @ 2012-06-02 10:09
XE2011
阅读(309)
评论(0)
推荐(0)
摘要：
SetWindowLong隐藏状态栏的图标//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle,SW_HIDE);end;procedure TForm1.Button1Click(Sender: TObject);beginShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中的图标 SetWindowLong(Application.Han. 阅读全文
posted @ 2012-06-02 10:09
XE2011
阅读(1229)
评论(0)
推荐(0)
摘要：
//触摸屏系统procedure TForm1.Label1Click(Sender: TObject);beginForm1.Visible := false;Application.CreateForm(TForm2, Form2);Form2.ShowModal;Form2.Free;end;procedure TForm1.FormCreate(Sender: TObject);begin... 阅读全文
posted @ 2012-06-02 10:09
XE2011
阅读(168)
评论(0)
推荐(0)
摘要：
//在标题栏绘制文字procedure TForm1.Button1Click(Sender: TObject);var dc:hdc;cvs:tcanvas;begindc:=getwindowdc(handle);//取得窗体的句柄cvs:=tcanvas.create; //生成画布cvs.Handle:=dc;cvs.textout(100,8,'my capt... 阅读全文
posted @ 2012-06-02 10:08
XE2011
阅读(232)
评论(0)
推荐(0)
摘要：
SystemParametersInfo(spi_setbeep,0,NIL,spif_sendwininichange); //关闭 SystemParametersInfo(spi_setbeep,1,NIL,spif_sendwininichange); //打开//没有效果通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:08
XE2011
阅读(130)
评论(0)
推荐(0)
摘要：
//功能说明：SystemParametersinfo代码控制光标procedureTForm1.Button1Click(Sender: TObject);varh: HCURSOR;beginh:=LoadCursorFromFile('3dsmove.cur');//导入光标SetSystemCursor(h,ocr_normal);end;procedureTForm1.Button2Cl... 阅读全文
posted @ 2012-06-02 10:08
XE2011
阅读(191)
评论(0)
推荐(0)
摘要：
//StatusBar在状态栏中显示checkBoxprocedure TForm1.CheckBox1Click(Sender: TObject);beginImage1.Visible := not CheckBox1.Checked;end;procedure TForm1.FormCreate(Sender: TObject);beginCheckBox1.P... 阅读全文
posted @ 2012-06-02 10:08
XE2011
阅读(371)
评论(0)
推荐(0)
浙公网安备 33010602011771号