Du vil have et gennemsigtigt vindue med et baggrundsbillede!? Det giver ikke helt mening.
Hvis du vil have et
translucent vindue så kan du prøve at læse denne artikel:
http://www.udvikleren.dk/show_article.php?id=58Hvis du vil have runde hjørner kan du prøve dig frem med følgende kode:
procedure TForm1.FormCreate(Sender: TObject);
var
RectRegion: HRGN;
CircRegion: HRGN;
FormRegion: HRGN;
begin
FormRegion := CreateRectRgn(0, 0, 1, 1);
RectRegion := CreateRoundRectRgn(0, 0, Width, Height, 100, 100);
CircRegion := CreateEllipticRgn(50, 50, 150, 150);
CombineRgn(FormRegion, RectRegion, CircRegion, RGN_XOR);
SetWindowRgn(Handle, FormRegion, False);
DeleteObject(CircRegion);
DeleteObject(RectRegion);
end;
"Jeg nægter at klikke på irriterende bannere men sådan er jeg" - MHA