Registracija

Disable Print Screen, Transparent Windows and Popup Menu

Odgovori Nova tema

1 odgovor
4.240 pregleda

Disable Print Screen, Transparent Windows and Popup Menu 30.11.2004. u 21:37 · pre 266 meseci #1

1. How to disable Preent Screen?
2. Kako naštelati da je neki prozor sa poznatim titlom transparentan 50%?
3. Ako u Popup Menu dodam item koji ima sličicu, a zatim dodam item bez sličice,
PopupMenu mi nije poravnat. Ovo se može riješiti dodavanjem prazne sličice u item bez slike. postoji li neko drugo riješenje?

Re: Disable Print Screen, Transparent Windows and Popup Menu 14.12.2004. u 15:30 · pre 266 meseci #2

Vidim da niko ne odgovara pa sam se jako potrudio i našao sa se transparentnost nekog prozora podešava ovak

Code:
procedure SetTransparentForm(AHandle : THandle; AValue : byte = 0);
var
  Info: TOSVersionInfo;
  SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
begin
//Check Windows version
Info.dwOSVersionInfoSize := SizeOf(Info);
GetVersionEx(Info);
if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(Info.dwMajorVersion >= 5) then
   begin
     SetLayeredWindowAttributes := GetProcAddress(GetModulehandle(user32), 'SetLayeredWindowAttributes');
      if Assigned(SetLayeredWindowAttributes) then
       begin
        SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
        //Make form transparent
        SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA);
      end;
   end;
end;

AValue ide od 0 do 255

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme