دلفیستان

تكنيك ايجاد يك فرم شفاف

با استفاده از دو خط كد زير در رويداد FormCreate  مي توان يك فرم شفاف ايجاد نمود.

Form1.Brush.Style:=bsClear;

Form1.BorderStyle:=bsNone;

 تكنيك ساخت يك فرم بيضي شكل

در رويداد FormCreate ابتدا يك متغير تعريف مي كنيم :

var  h: THandle;

سپس با استفاده از كد زير ابتدا يك بيضي ساخته و سپس فرم را به شكل اين بيضي در مي آوريم:

h := CreateEllipticRgn(40,40,300,200);  SetWindowRgn(form1.Handle,h,TRUE);