Thema: Delphi Move taskbar

Einzelnen Beitrag anzeigen

mr_emre_d
(Gast)

n/a Beiträge
 
#7

Re: Move taskbar

  Alt 1. Feb 2009, 15:00
i dont get it, whats your problem exactly ?

do you want to remove the taskbar or just adjust the size of it ?

for removing(making it invisible) use this:
Delphi-Quellcode:
procedure ShowShellTrayWindow(Show: Boolean);
begin
  ShowWindow( FindWindow( 'shell_traywnd', 0 ), Integer(Show) );
end;
for makin it transparent:
Delphi-Quellcode:
procedure TransparentTrayWindow(Percent: Byte);
var
  hWnd: Cardinal;
begin
  hWnd := FindWindow( 'shell_traywnd', 0 );
  if Percent in [1..100] then
  begin
    SetWindowLong( hWnd, GWL_EXSTYLE,
      GetWindowLong( hWnd, GWL_EXSTYLE ) or WS_EX_LAYERED );
    SetLayeredWindowAttributes( hWnd, 0, Round($FF/$64*Percent), LWA_ALPHA );
  end;
end;
  Mit Zitat antworten Zitat