如何使TImage控件全屏显示?
如题,连任务栏也不显示,就一个TImage在桌面儿最顶端摆着。
之前这个TImage在一个窗体上,点个按钮就实现全屏;
按 "Esc "就恢复过来,请问各位,如何实现?
谢谢~
[解决办法]
Form
KeyPreview = true;
FormStyle = fsStayOnTop;
BorderStyle = bsNone;
WindowState = wsMaximize;
OnKeyDown
if Key = WK_ESCAPE then
WindowState =
...
Image
Aling = alClient;
[解决办法]
连任务栏也不显示
需要发消息通知任务栏隐藏
显示任务栏:
HWND WndHandle;
WndHandle = FindWindow( "Shell_TrayWnd ",NULL);
ShowWindow(WndHandle,SW_SHOW);
隐藏任务栏:
HWND WndHandle;
WndHandle = FindWindow( "Shell_TrayWnd ",NULL);
ShowWindow(WndHandle,SW_HIDE);