lav et vindue gennemsigtigt???

vil du gi\' mig pointene hvis du får koden lige om lidt...?

her er den:

procedure DoInvisible;


var
  FullRgn, ClientRgn, CtlRgn : THandle;


procedure TMainForm.DoInvisible;
var
  AControl : TControl;
  A, Margin, X, Y, CtlX, CtlY : Integer;
begin
  Margin := ( Width - ClientWidth ) div 2;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  X := Margin;
  Y := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );
  CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );

  for A := 0 to ControlCount - 1 do begin
    AControl := Controls[A];
    if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
        then with AControl do begin
      if Visible then begin
        CtlX := X + Left;
        CtlY := Y + Top;
        CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
        CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
      end;
    end;
  end;
  SetWindowRgn(Handle, FullRgn, TRUE);
end;

hmmm det var ikke helt sådan det skulle virke, jeg smider lige et screenshot over hvad jeg menere:

www.ziron.dk/eksperten/gennemsigtig.jpg

men jeg tror faktisk at det virker alligevel, det var nok bare min bærbarer som stenede for det virker fint nok på min stationærer nu. sååå...

/ZIRON

hvis du vil lave din form halv-transperant (:se Alpha Blend) kan du bruge Delphi 6 - det kræver dog Win2000...

ja det er også det som jeg bruger men, jeg tror bare at det var min com som stenede, tjekker senere...

/ZIRON

Ellers kan man lave et par små triks .. Hvis man vil ud over alt det her ....

Jens B

det er fordi at min bærbarer ikke har et super grafikkort, men kan man lave noget fiks faks så den ikke skal bruge så mange resurcer?

/ZIRON

jo nemt ... Vil du også have koden ?

Jens B

nej jeg skulle bare have konsateret at man godt kunne :)

/ZIRON

OKi Så kan du blive fri !

JENS B

http://Borrisholt.com/Eksperten/ZIRON_ER_EN_JULE_HEST.zip

Jens B

okay tak skal du have jeg kigger lige på det her om lidt. takker og jeg vil altså heller være en vaskebjørn...

/ZIRON

okay det ser sku godt ud det du har lavet, men ud er det så lige at jeg tænkte på om man kan få den til at gøre det samme som alphablend, altså at de ting som er på formen også bliver gennemsigtige?

/ZIRON

Det kan du da godt ..... Hvad er problemet .. kan du ikke bare sætte den til en værdi mellem 0 og 255

Jens B

hmmm kigger lige. 3 sek...

Hej Borrisholt, jeg håber at det er i orden at jeg osse har downloaded din fil....
men den siger at der er en fejl i:
p := Classes.MakeObjectInstance(NewParentWndProc);
er det mig ´der er dum eller mangler der et komponent i mit delphi 5?

Glædelig jul

M.v.h. ProDoc

prodoc  >> Naturlig vis er den til offenligt brug ellers havde jeg sendt den direkte til ZIRON. Men nej det er ikke dig der noget i vejen med. Problemet er jeg bruger Delphi 6 og du \"kun\" bruger Delphi 5. Men det er meget nemt løst :

p := Classes.MakeObjectInstance(NewParentWndProc);

bliver til

p := MakeObjectInstance(NewParentWndProc);

Jens B

hmmm havde lige glemt dette spg. men jens jeg sy´nes det er lidt af en fake måde, men okay der er jo ikke andet at gøre, point til dig :)

/ZIRON