Article View: comp.lang.pascal.delphi.misc
Article #551Re: How to make the FORM transparent !!!!
From: Arnaud Pons
Date: Fri, 18 Jun 1999 00:00
Date: Fri, 18 Jun 1999 00:00
40 lines
1776 bytes
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-mailReferences:
<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