Technology Learning

导航

2010年3月29日

窗体显示在最上层

摘要： 1.设置FormStyle 为fsStayOnTop2.调用Api函数前者本质上也是调用SetWindowPosBOOLHWND hWnd,//窗体的句柄HWND hWndInsertAfter,//显示在最上面还是其他，本例为HWND_TOPMOSTint X,int Y,//point..int cx,int cy,//sizeUINT uFlags);//..SetWindowPos(han... 阅读全文

posted @ 2010-03-29 23:20 浔阳渔夫 阅读(520) 评论(0) 推荐(0) 编辑

移动无标题栏窗口

摘要： procedure WMNChitTest(var Msg:TWMNChitTest);message WM_NCHITTEST;procedure TForm13.WMNChitTest(var Msg:TWMNChitTest);begininherited;if Msg.Result=htClient then//将客户区消息转换成拖动标题时产生的消息 Msg.Result:=htCapti... 阅读全文

posted @ 2010-03-29 23:01 浔阳渔夫 阅读(151) 评论(0) 推荐(0) 编辑

不可移动的窗体

摘要： procedure windowsposchange(var Msg:TWMWINDOWPOSCHANGING);message WM_WINDOWPOSCHANGING;var Form13: TForm13; // oleft:integer; otop:integer; owidth:integer; oHeight:integer;implementation{$R *.dfm}proce... 阅读全文

posted @ 2010-03-29 22:51 浔阳渔夫 阅读(258) 评论(0) 推荐(0) 编辑