Cum se creează o formă circulară pe Delphi
Astăzi vreau să vă arăt cum puteți crea cu ușurință un formular non-standard, de exemplu rotund.
Deschideți Delphi și creați un nou proiect, după ce cuvântul cheie privat este adăugat
procedură CreateParams (var Params: TCreateParams); suprascrie;
Apăsați combinația de taste Ctrl + Shift + C
Delphi generează o procedură goală.
Uite ce sa întâmplat cu mine și scrie ce lipsește de la tine.
procedura TForm1.CreateParams (var Params: TCreateParams);
începe
mostenite CreateParams (Params);
Params.Style: = Params.Style sau ws_popup xor ws_dlgframe;
se încheie;
Deplasăm și creați un handler de evenimente OnCreate pe formular, înregistrați codul de mai jos.
Lista completă a procedurii OnCreate:
procedura TForm1.FormCreate (expeditor: TObject);
var
FormRgn: hRgn;
începe
Form1.Brush.Style: = bsSolid; // bsclear;
GetWindowRgn (Form1.Handle, FormRgn);
DeleteObject (FormRgn);
Form1.Height: = 500;
Form1.Width: = Form1.Height;
FormRgn: = CreateRoundRectRgn (1, 1, Form1.Lățime - 1,
Forma1 - înălțime - 1, lățimea formei 1, forma 1 - înălțime);
SetWindowRgn (Form1.Handle, FormRgn, TRUE);
se încheie;
Totul începe proiectul și se bucură de rezultat.
Ne vedem la www.delphi.ru
P.S nu uitați să vă abonați la un newsletter multimedia gratuit. Formularul de abonare este situat în partea dreaptă și pe partea stângă.