关于form的一个简单问题

Question

设置form1.formstyle:=fsStayOnTop即可

Answer 1

隐藏任务栏：
var
  wndHandle: THandle;
begin
  wndHandle := FindWindow('Shell_TrayWnd', nil);
  ShowWindow(wndHandle, SW_HIDE);
end;

Answer 2

procedure HideTaskBar;
var
    wndHandle:THandle;
    wndClass:Array[0..50] of char;
begin
    StrPCopy(@wndClass[0],'Shell_trayWnd');
    wndHandle:=FindWindow(@wndClass[0],nil);
    showWindow(wndHandle,SW_HIDE);
end;procedure ShowTaskBar;
var
    wndHandle:Thandle;
    wndClass:Array[0..50] of char;
begin
    StrPCopy(@wndclass,'Shell_TrayWnd');
    wndHandle:=FindWindow(@wndClass,nil);
    ShowWindow(wndHandle,SW_RESTORE);
end;
你在button1的onclick中调用  form1.Top:=0;
  form1.Left:=0;
  form1.Width:=screen.Width;
  form1.Height:=screen.Height;
  HideTaskBar;
而在formclose中调用
  showTaskBar