摘要：
//浮动工具栏{窗体是否要隐藏，重要的是要判断是否在操作中，通过窗体的Active属性，可以确定窗体是否具有焦点。在窗体有焦点时，该窗体正在被操作，这时需要完全显示在屏幕当中；如果窗体没有焦点，通过设置窗体到屏幕的高度来确定窗体的隐藏部分。在TTimer组件的OnTimer事件中，窗体没有焦点时，隐藏工具栏.在窗体上添加TTimer组件和TImage组件设置窗体Form1的属性}{以图片的形状作为... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(178)
评论(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
阅读(161)
评论(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
阅读(246)
评论(0)
推荐(0)
摘要：
//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender: TObject);//直接定位文件' 打开一个文件beginOpenDialog1.Execute;//执行“打开”文件对话框Label1.Caption:=OpenDialog1.FileName;//将返回的结果值传递给控件Label1//要注意，只有当用户... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(424)
评论(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)
摘要：
//给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
阅读(185)
评论(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
阅读(347)
评论(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
阅读(233)
评论(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
阅读(131)
评论(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
阅读(146)
评论(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)
摘要：
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
阅读(1401)
评论(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)
浙公网安备 33010602011771号