摘要:
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
阅读(83)
推荐(0)
编辑
摘要:
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);如果要把整个标题栏去掉,则在OnCreate中写:SetWindowLong(handle,GWL_STY...
阅读全文
posted @ 2009-11-02 17:01
martian6125
阅读(206)
推荐(0)
编辑
摘要:
unit Unit1;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, Buttons, DdeMan, StdCtrls;...
阅读全文
posted @ 2009-11-02 17:00
martian6125
阅读(334)
推荐(0)
编辑
摘要:
但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型,你向调用者提供你的回调函数的入口地址,然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用这个函数通知你,并按照预先规定好的形式传递参数。所以很多人打比方,说回调函数还真有点...
阅读全文
posted @ 2009-11-02 16:59
martian6125
阅读(153)
推荐(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
阅读(269)
推荐(0)
编辑