Kun gfx, ingen form, i delphi

Laver din form Transparent, form\'s createparameter

prøv at indsætte dette i din OnFormCreate procedure og kompile:

form1.brush.style := bsclear;

Din form er gennemsigt...

ZeroHero

Ups... skulle have været et svar!

det virker ikke med bsclear, den tager et billede af formens baggrund, og bruger det som baggrund :(

Ja, hvad er problemet?

Nedenstående laver et \"hul\" i din form hvor du kan klikke igennem.

Du skal så bare udelade de områder på formen du vil have vist.


procedure TForm1.Button2Click(Sender: TObject);
var
    region1, region2 : hrgn;
begin
    region1 := CreateRectRgn(0,0,width,height);

    region2 := CreateRectRgn(30,30,200,200);
  // her gøres hele formen gennemsigtig/usynlig
  // region2 := CreateRectRgn(0,0,width,height);
    CombineRgn(region1, region1, region2, RGN_DIFF);
    SetWindowRgn(handle, region1, true);


    end;

Stoney

den svær kan man ikke gøre det modsatte ... jeg har en sjove former i min gfx