如何实现像千千静听的歌词窗口,可以通过按钮设置其是否始终置前(动态设置窗口始终置前)(555……俺没分了,大家要帮一下我呀!!!)

Question

如何实现像千千静听的歌词窗口,可以通过按钮设置其是否始终置前(动态设置窗口始终置前)(555……俺没分了,大家要帮一下我呀!!!)

Answer 1

调一个winapi就可以了  没分 不讲

Answer 2

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

Answer 3

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

Answer 4

最前端显示：
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 );

Answer 5

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   );
这三种都可以的,你再试一下