博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  delphi

摘要:delphi的消息对话框,类似VFP中的WAIT和MESSAGEBOXdelphi的消息对话框,类似VFP中的WAIT和MESSAGEBOX1、最简单的是:showmessage() 它只有一个OK按钮,括号中填入希望提示的字符串。 例:showmessage('除数不能为零!!!')2、showmessagefmt() 显示一条提示信息,只有一个OK按钮,但提示信息的字符可以带格式符。3、另一个... 阅读全文

posted @ 2010-02-06 09:07 大椰网吧 阅读(2860) 评论(0) 推荐(0)

摘要:{***********************************************************************} {*在Delphi语言的数据库编程中,DBGrid是显示数据的主要手段之一。 {*但是DBGrid缺省的外观未免显得单调和缺乏创意。其实,我们完全可 {*以在我们的程序中通过编程来达到美化DBGrid外观的目的。通过编程, {*我们可以改变DBGrid... 阅读全文

posted @ 2010-02-05 09:07 大椰网吧 阅读(526) 评论(0) 推荐(0)

摘要:BorderStyle := bsNone;WindowState := wsMaximized;//======================BorderStyle := bsNone;Left := 0;Top := 0;Width := Screen.Width;Height := Screen.Height;//==============================BorderSt... 阅读全文

posted @ 2010-02-04 14:10 大椰网吧 阅读(978) 评论(0) 推荐(0)

摘要:Form1.BorderStyle:=bsNone; 阅读全文

posted @ 2010-02-01 15:52 大椰网吧 阅读(1328) 评论(0) 推荐(0)

摘要:将form的position属性设置成poScreenCenter就可以了 阅读全文

posted @ 2010-01-29 18:06 大椰网吧 阅读(461) 评论(0) 推荐(0)

摘要:一.关于原型声明1.原型声明位于公共部分(ineterface),声明的作用是用来标明该函数是否公开于其他单元。所以不公开单元时就可以不声明。2.但是如果有原型声明的存在,该函数的定义部分就必须以原型声明为准则 。二.参数传递方式1. 值参数2. 传址参数(变量参数)其声明的语法是在在参数标识符之前加上一个保留字var3. out参数out参数是另一种参数,它和变量参数一样,都是传地址。然而out... 阅读全文

posted @ 2010-01-29 15:37 大椰网吧 阅读(992) 评论(0) 推荐(0)

摘要:Google搜到线程的例子都是那个画图的,猛禽那个多线程又太过高深(对于我这一滴水来说),万一老师开线程的博还是要等。只有自己看着《Delphi5开发人员指南》中文版PDF一步一步来弄懂些初步的东西,到时候可以跟上万一老师的课程。一、创建:1、直接书写:unit Unit1; interface uses Classes; TMyThead = class(TThread) private { ... 阅读全文

posted @ 2009-12-23 16:52 大椰网吧 阅读(1206) 评论(0) 推荐(0)

摘要:Delphi网络函数unit net;interfaceusessysutils,windows,dialogs,winsock,classes,comobj,wininet;//得到本机的局域网ip地址function getlocalip(var localip:string): boolean;//通过ip返回机器名function getnamebyipaddr(ipaddr: strin... 阅读全文

posted @ 2009-12-23 16:12 大椰网吧 阅读(330) 评论(0) 推荐(0)

摘要:procedure TFrmHideMenu.HidePopmenu;var reg:TRegistry; buffer,size:integer;begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('SoftWare\Policies\Microsoft\Internet Explorer\restri... 阅读全文

posted @ 2009-12-23 16:09 大椰网吧 阅读(180) 评论(0) 推荐(0)

摘要:function TFrmStarPage.ShowStartPage:string;var reg:TRegistry;begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true); result:=reg.Rea... 阅读全文

posted @ 2009-12-23 16:08 大椰网吧 阅读(432) 评论(0) 推荐(0)

摘要:任何一种流行的高级语言编译器都提供了较易使用的调试与异常处理的方法。当然不同的编译器因为其编译的原理不同导致其调试的具体方法和异常处理的具体技巧也有所不同。比如说VB,因为它是解释型的语言,所以象单步跟踪这样的方式可以一边编译一边查看执行结果,因为它的每一条语句本来就是一边运行一边解释再返回结果的;而象VC,相对起来则要等待“很长”的编译过程,这时候写几行代码就调试结果的习... 阅读全文

posted @ 2009-12-23 16:06 大椰网吧 阅读(2003) 评论(0) 推荐(0)

摘要:OnCreate->OnShow, 如果调用窗体和被调用窗体的窗体类型都是fsNormal,那么只有在调用 被调用窗体的show方法时候才会触发OnShow事件,但是如果调用窗体的类型 是fsMDIForm,那么被调用窗体在触发完OnCreate事件之后,会接着触发OnShow 事件,并且会执行在Onshow事件中的代码,而不会等到在执行Show方法的时候才触发 阅读全文

posted @ 2009-12-23 15:50 大椰网吧 阅读(403) 评论(0) 推荐(0)

摘要:SHOW是非模式显示窗体 SHOWMODAL是模式显示窗体 前者关闭时窗体并没有释放,需要在FORM的ONCLOSE中添加ACTION:=NIL; 后者就不用 我一般都用后者 show 只简单的显示出所调用窗口,showmodal 需要在关闭窗口之后才能进行其它窗口的操作; 同时showmodal 能获取到返回值; 阅读全文

posted @ 2009-12-23 15:47 大椰网吧 阅读(1944) 评论(0) 推荐(0)

摘要:splash窗口 阅读全文

posted @ 2009-12-23 15:43 大椰网吧 阅读(571) 评论(0) 推荐(0)

摘要:代码区颜色设置 阅读全文

posted @ 2009-12-23 15:42 大椰网吧 阅读(195) 评论(0) 推荐(0)

摘要:TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来:1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个:CommaText。怎么用呢?用代码说话:const constr... 阅读全文

posted @ 2009-12-23 15:36 大椰网吧 阅读(211) 评论(0) 推荐(0)

摘要:delphi之self 阅读全文

posted @ 2009-12-23 15:34 大椰网吧 阅读(268) 评论(0) 推荐(0)

摘要:Delphi中Self和Sender的区别在事件处理程序参数表中,至少含有一个参数Sender,它代表触发事件处理程序的构件,如在上例中,Sender就指Button2,有了Sender参数,可以使多个构件共用相同的事件处理程序,如下例:Procedure Tform1.Buttonclick(Sender:Tobject);BeginIf sender=button1 thenLabel1.ca... 阅读全文

posted @ 2009-12-23 15:30 大椰网吧 阅读(398) 评论(0) 推荐(0)

摘要:Delphi中Owner和Parent的区别Owner为创建者,Parent为容器 他们的类型不同,Owner为TComponent(元件),Parent为TWinControl(窗体控件)Parent属性是指构件的包容器,构件只能在此范围内显示和移动。举例子如下:(1)在Form1的窗体上,放一个Panel1,并将Panel1拉大,(2)在Panel1上放一Button1;(3)在Form1上放... 阅读全文

posted @ 2009-12-23 15:14 大椰网吧 阅读(937) 评论(1) 推荐(0)

摘要:方法一:搜索主窗口的一个副本program Project1;uses Forms, main in 'main.pas' {Form1}, windows;{$R *.res}var Hwnd:THandle;begin Hwnd :=FindWindow('TForm1',nil); if Hwnd = 0 then begin Application.Initialize; Applicat... 阅读全文

posted @ 2009-12-23 14:27 大椰网吧 阅读(316) 评论(0) 推荐(0)