如何产生不会按Win+M键而消失的小窗口，类似FLASHGET的悬浮窗(50分)

Z

zjfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-09

• #1

如何产生不会按Win+M键而消失的小窗口，类似FLASHGET的悬浮窗，我重载了
procedure TLittlebox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams( Params);
Params.WndParent:=0;
end;
设这个Form的边为NONE，
结果在任务栏中出现这个窗口的标题，如何才能达到象FLASHGET一样的窗口呢？

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-09

• #2

截获最小化消息WM_SIZE/SIZE_MINIMIZED(wParam)，把它忽略。
procedure WMSize(var Msg: TMessage);
message WM_SIZE;
procedure TForm1.WMSize(var Msg: TMessage);
begin
if Msg.wParam = SIZE_MINIMIZED then
Msg.Result := -1
else

inherited;
end;

 

Z

zjfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-09

• #3

不对呀，按WIN+M还是会变到任务栏的，而不象FLASHGET的小窗口不动

 

Z

zjfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-27

• #4

我已经知道答案了，从CSDN得知
procedure TLittlebox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams( Params);
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
Params.WndParent := 0;
// 这是必须的，否则当App变为后台时会将该窗体设置为不TopMost
end;
那我的分怎么才能给自己呢？？？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-13

• #5

多人接受答案了。