如何让一个程序永久置与窗口列表底部,,

lady789 2001-08-08 02:23:12
如何让一个程序永久置与窗口列表底部,我用 setwindowpos()的话..将窗口置于底部...但是那外一个程序又可以到底部了...这样我的窗口又到了上面来了...如果用timer控件进行刷新的话还可以实现,,但是由于我的软件中的技术要求,,不能采用这个方法!
...全文
93 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xyzguan 2001-09-17
  • 打赏
  • 举报
回复
http://www.csdn.net/expert/topic/289/289070.shtm
光明山人 2001-09-17
  • 打赏
  • 举报
回复
给我分吧,789女士!小生这里先谢了!啊没戏了,是8月8日的问题。faint!

截WM_WINDOWPOSCHANGING消息,看源程序:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
StdCtrls, ExtCtrls, ComCtrls, Db, DBTables, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMWindowPosChanging( var Msg: TWMWindowPosChanging ); message WM_WINDOWPOSCHANGING;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
begin
inherited;
Msg.WindowPos^.hwndInsertAfter := HWND_BOTTOM;
end;

end.
韩小明 2001-09-16
  • 打赏
  • 举报
回复
gz
yyyzzz 2001-09-16
  • 打赏
  • 举报
回复
gz
newyj 2001-08-08
  • 打赏
  • 举报
回复
将窗口置于底部只是一个相对的
比如你的窗口置于底部已成功的置于底部;
你又把程序执行了一遍(启动了两个)这两个程序总不可能同时至于窗体的底部吧

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧