我想创建这样的一个窗体:这个窗体始终在桌面的最顶部,也即浮动在最上面.且此窗体一直不激活,即使点击后,也会立刻回到原来焦点的位置,设置整窗体在整个过程中为不激活的函数应该为setwindowlong,但我不知道怎么用 .
解决方案 »
- 程序的日志文件为txt,写日志的时候出现I/O错误
- InfInite pin tee filter怎样使用
- 如何得到系统当前输入框的句柄?
- 关于delphi版本的问题
- 深圳有人踢球吗?
- 100分关于远程重启服务器的问题!!
- 创新24点算法,快来看看!
- windows protection error.you need to restart your computer.system halted.
- 三个看似简单,并且非常类似的问题, 一个比一个难. 第一流 的 ( SELECT ) 高手请进.
- 大家请看IE后退键,它右边有一小箭头,一按就有下拉菜单弹出,请问delphi中有无自带此控件?如有,在哪页下?如无,请问此控件叫啥,哪有?
- 对excel表格的操作
- 一个TQuery的问题
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,
Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
form 的OnActive:SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width,
Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
Form1: TForm1;
oleft:Integer;
otop:Integer;
owidth:Integer;
oheight:Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
//记录原始位置 全局变量
oleft:=Left;
otop:=Top;
owidth:=width;
oheight:=height;
end;end;
procedure TForm1.windowsposchange(var Msg:TWMWINDOWPOSCHANGING);
begin // 恢复院士位置尺寸Msg.WindowPos.x:=oleft;
Msg.WindowPos.y:=otop;Msg.WindowPos.cx :=owidth;
Msg.WindowPos.cy:=oheight;inherited;end;