Programozás Delphi kerek ablakok
Hogyan hozzunk létre egy kör alakú Delphi
Ma szeretnék megmutatni, hogyan lehet egyszerűen létrehozni egy egyéni formában típusú, mint a körkörös.
Nyisd Delphi, és hozzon létre egy új projektet, miután a saját kulcsszó hozzáfűz
eljárás CreateParams (var Params: TCreateParams); felülbírálhatja;
Mi nyomja meg a Ctrl + Shift + C
Delphi létrehoz egy üres eljárást.
Nézd meg, hogy mi történt velem, és felmászik valamit, ami nem elég akkor.
eljárás TForm1.CreateParams (var Params: TCreateParams);
kezdődik
öröklött CreateParams (Params);
Params.Style: = Params.Style vagy ws_popup xor ws_dlgframe;
végén;
Térjünk át, és hozzon létre a OnCreate eseménykezelő a formában, írja be az alábbi kódot.
A teljes lista a OnCreate eljárás:
eljárás TForm1.FormCreate (Sender: TObject);
var
FormRgn: hRgn;
kezdődik
Form1.Brush.Style: = bsSolid; // bsclear;
GetWindowRgn (Form1.Handle, FormRgn);
DeleteObject (FormRgn);
Form1.Height: = 500;
Form1.Width: = Form1.Height;
FormRgn: = CreateRoundRectRgn (1, 1, Form1.Width - 1,
Form1.height - 1, Form1.width, Form1.height);
SetWindowRgn (Form1.Handle, FormRgn, TRUE);
végén;
Ennyi fut a projekt, és élvezze az eredményt.
Viszlát www.delphi expert.ru
P.S ne felejtsük el, hogy iratkozzon fel az ingyenes hírlevélre multimédia. Forma feliratkozni a jobb és a bal oldalon.