O codigo da rotina de remover task bar e teclado.
======================================================
procedure RemoveTaskbar(AFullScreen: Boolean;Form : TForm);
const
MENU_HEIGHT = 26;
var
rc: TRect;
begin
if AFullScreen then
begin
GetWindowRect(Form.Handle, @rc);
SHFullScreen(Form.Handle, SHFS_HIDETASKBAR);
MoveWindow(Form.Handle,rc.left,rc.top-MENU_HEIGHT,rc.right,rc.bottom+MENU_HEIGHT,TRUE);
end
else
begin
GetWindowRect(Form.Handle, @rc);
SHFullScreen(Form.Handle, SHFS_SHOWTASKBAR);
MoveWindow(Form.Handle,rc.left,rc.top+MENU_HEIGHT,rc.right,rc.bottom-MENU_HEIGHT,TRUE);
end;
end; // RemoveTaskbar
procedure RemoveVirtualKeyboard(ARemove: Boolean;Form: TForm);
begin
if ARemove then
SHFullScreen(Form.Handle, SHFS_HIDESIPBUTTON)
else
SHFullScreen(Form.Handle, SHFS_SHOWSIPBUTTON);
end; // RemoveVirtualKeyboard
======================================================
Quanto a Privez, cada Form tem um. Acho que global nao teria sentido... Ou to enganado?
Será que dá pra incluir o MoveWindow na RemoveTaskBar? Se nao, poderias passar um modelo de chamada em um metodo que eu pudesse incluir no projeto e usar direto + instrucoes necessarias
[ ]