gøre en form transparent

Hvilken Delphi version ?

Delphi 6 og 7

delphi 6 og 7

i object inspector sætter du i form1 alphablend til True
alphablendvalue til mellem 0 - 255 jo lavere tal des mere gennemsigtig

sæt
  AlphaBlend := true;

og brug så  AlphaBlendValue til at indstille hvormeget den skal være gennemsigtig. [0..255]

Jens B

tak

Du kan også gøre andre programmer transparente!

Sådan gøres Notepad transparent:

const
  WS_EX_LAYERED = $00080000;
  LMA_COLORKEY  = $00000001;
  LMA_ALPHA    = $00000002;

procedure TransparentNotepad(Alpha: Byte;);
type
  TLayerFunc = function(hwnd: HWND; crKey: ColorREF; bAlpha: byte; dwFlags: DWORD): boolean; stdcall;

var
  ExtStyle : LongInt;
  LayerFunc : TLayerFunc;
  LibHandle : HModule;
  NotepadHandle: HWND;
begin
  NotepadHandle := FindWindow('Notepad', nil);
  if NotepadHandle = 0 then
  begin
    ShowMessage('Du skal starte Notepad!');
    Exit;
  end;

  LibHandle := LoadLibrary(user32);

  if LibHandle > 0 then
  begin
    LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes');

    if Assigned(LayerFunc) then
    begin
      ExtStyle := GetWindowLong(NotepadHandle, GWL_EXSTYLE);

      SetWindowLong(NotepadHandle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
      LayerFunc(NotepadHandle, clBlack, Alpha, LMA_ALPHA);
    end;
    FreeLibrary(LibHandle);
  end;
end;

Koden er "lånt" fra Pythia.dk! :)
http://www.pythia.dk/tips/vis_tip.php?id=41