摘要：
{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
阅读(118)
评论(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
阅读(208)
评论(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
阅读(688)
评论(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
阅读(343)
评论(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
阅读(1403)
评论(0)
推荐(0)
摘要：
通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(119)
评论(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
阅读(247)
评论(0)
推荐(0)
摘要：
//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender: TObject);//直接定位文件' 打开一个文件beginOpenDialog1.Execute;//执行“打开”文件对话框Label1.Caption:=OpenDialog1.FileName;//将返回的结果值传递给控件Label1//要注意，只有当用户... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(429)
评论(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
阅读(213)
评论(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
阅读(138)
评论(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)
浙公网安备 33010602011771号