πŸš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.delphi.misc
Article #551

Re: How to make the FORM transparent !!!!

#551
From: Arnaud Pons
Date: Fri, 18 Jun 1999 00:00
40 lines
1776 bytes
Chow Hoi Ka, Eric a οΏ½crit dans le message
<37687007.E03C9970@sftw.umac.mo>...
>Hello,
>
>Is is possible to make the FORM transparent ?
>
>Best regards,
>Eric
>

If you want to make highly customizable transparent regions on your form,
try this WONDERFULL FREE component (I'm not the author, that's no
publicity, but it really works fine) at Torry's Delphi Page :
Component name is TFormShaper
File name is ANISHAPE.ZIP
Home page is http://www.torry.ru/
... and direct file access is http://www.torry.ru/vcl/forms/anishape.zip

For an entirely transparent form, you can also override the
CreateParams procedure. This should look like this :

type
 TForm1 = class(TForm)
   Label1: TLabel;
   (...)
   procedure CreateParams(var Params: TCreateParams); override;
   procedure Label1Click(Sender: TObject);
   private
   public
end;


procedure TForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do ExStyle := ExStyle or WS_EX_TRANSPARENT;
end;

Hope it helped.
Technical Details
Message-ID: <7kce42$225$1@front5m.grolier.fr>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <37687007.E03C9970@sftw.umac.mo>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 1091e5,cb5b86d88de05fbc
X-Google-Attributes: gid1091e5,public
X-Google-Thread: 10baee,cb5b86d88de05fbc
X-Google-Attributes: gid10baee,public
From: "Arnaud Pons" <apons@club-internet.fr>
Subject: Re: How to make the FORM transparent !!!!
Date: 1999/06/18
Message-ID: <7kce42$225$1@front5m.grolier.fr>
X-Deja-AN: 490922620
References: <37687007.E03C9970@sftw.umac.mo>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
X-Trace: front5m.grolier.fr 929676226 2117 195.36.149.214 (18 Jun 1999 03:23:46 GMT)
Organization: Club-Internet (France)
NNTP-Posting-Date: 18 Jun 1999 03:23:46 GMT
Newsgroups: comp.lang.pascal.delphi.misc,borland.public.delphi.winapi