2009 年 11月 2 日随笔档案 - martian6125

2009年11月2日

摘要： procedure TForm1.FormCreate(Sender: TObject);var ExSty:DWORD;begin ExSty:=GetWindowLong(Handle,GWL_EXSTYLE); ExSty:=ExSty or WS_EX_... 阅读全文

posted @ 2009-11-02 17:01 martian6125 阅读(90) 评论(0) 推荐(0)

摘要： EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);如果要把整个标题栏去掉，则在OnCreate中写：SetWindowLong(handle,GWL_STY... 阅读全文

posted @ 2009-11-02 17:01 martian6125 阅读(222) 评论(0) 推荐(0)

摘要： unit Unit1;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, Buttons, DdeMan, StdCtrls;... 阅读全文

posted @ 2009-11-02 17:00 martian6125 阅读(342) 评论(0) 推荐(0)

摘要：但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型，你向调用者提供你的回调函数的入口地址，然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用这个函数通知你，并按照预先规定好的形式传递参数。所以很多人打比方，说回调函数还真有点... 阅读全文

posted @ 2009-11-02 16:59 martian6125 阅读(156) 评论(0) 推荐(0)

摘要： procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) then //最小化消息 begin //处理代码 end else if (Msg.CmdType = SC... 阅读全文

posted @ 2009-11-02 16:58 martian6125 阅读(295) 评论(0) 推荐(0)

摘要： 1、procedure TForm1.WMInit(var msg: TWMInitMenuPOPUP);begin inherited; EnableMenuItem(msg.MenuPopup ,sc_Close,MF_BYCOMMAND or MF_GRAY... 阅读全文

posted @ 2009-11-02 16:57 martian6125 阅读(387) 评论(0) 推荐(0)

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ... 阅读全文

posted @ 2009-11-02 16:56 martian6125 阅读(434) 评论(0) 推荐(0)

摘要： procedure TForm1.CreateParams(var Params: TCreateParams) ;begin BorderStyle := bsNone; inherited; Params.ExStyle := Params.ExStyle ... 阅读全文

posted @ 2009-11-02 16:55 martian6125 阅读(392) 评论(0) 推荐(0)

摘要： type TForm1 = class(TForm)... private procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ; message WM_GETMINMAXINFO;...impleme... 阅读全文

posted @ 2009-11-02 16:54 martian6125 阅读(144) 评论(0) 推荐(0)

摘要： type TCustomCaptionForm = class(TForm) private procedure WMNCPaint(var Msg: TWMNCPaint) ; message WM_NCPAINT; procedure WM... 阅读全文

posted @ 2009-11-02 16:53 martian6125 阅读(303) 评论(0) 推荐(0)

摘要：先设置BorderStyle和BorderIconstype THelpForm = class(TForm) private procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ; message... 阅读全文

posted @ 2009-11-02 16:53 martian6125 阅读(135) 评论(0) 推荐(0)