如何实现像千千静听的歌词窗口,可以通过按钮设置其是否始终置前(动态设置窗口始终置前)

celebee

如何实现像千千静听的歌词窗口,可以通过按钮设置其是否始终置前(动态设置窗口始终置前)

lazying

是这个不?
procedure TForm1.Button2Click(Sender: TObject);
begin
   form1.FormStyle:=fsstayontop;
end;

coolman214

SetWindowPos ( Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Widht, Form1.Height, SWP_SHOWWINDOW );

coolman214

最前端显示：
SetWindowPos ( Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW );

取消最前端显示：
SetWindowPos ( Form1.Handle, HWND_NOTOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW );

celebee

(楼主)再求救!
    楼上的代码不灵呀,若按显示桌面窗体就会被隐藏,而千千静听的不会被隐藏,我想要的是这种效果!!!求求各位帮忙!!!

landen

1.form1.FormStyle:=fsstayontop;
2.最前端显示：
SetWindowPos   (   Form1.Handle,   HWND_TOPMOST,   Form1.Left,   Form1.Top,   Form1.Width,   

Form1.Height,   SWP_SHOWWINDOW   );
取消最前端显示：
SetWindowPos   (   Form1.Handle,   HWND_NOTOPMOST,   Form1.Left,   Form1.Top,   Form1.Width,   

Form1.Height,   SWP_SHOWWINDOW   );
这三种都可以的,你再试一下