Как да създадете кръгла форма в Делфи
Днес искам да ви покажа как можете лесно да създадете потребителски тип форма, като кръгла.
Отворете Delphi и да създадете нов проект, след като добавя частните ключови думи
Процедура CreateParams (VAR Params: TCreateParams); отменят;
Ние натиснете клавишната комбинация Ctrl + Shift + C
Delphi генерира празно процедура.
Вижте какво се случи с мен и да се монтира нещо, което не е достатъчно, за вас.
Процедура TForm1.CreateParams (VAR Params: TCreateParams);
започвам
наследствени CreateParams (Params);
Params.Style: = Params.Style или ws_popup XOR ws_dlgframe;
приключи;
Нека да преминем и да се създаде манипулатора OnCreate събитие във формуляра, установени от нея следния код.
Пълният списък на OnCreate процедура:
процедура TForm1.FormCreate (Sender: TObject);
Var
FormRgn: hRgn;
започвам
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, вярно);
приключи;
Това е всичко, функциониране на проекта и да се насладите на резултата.
Виж ти www.delphi expert.ru
P.S не забравяйте да се абонирате за безплатен бюлетин мултимедия. Форма за записване е от дясната страна и в ляво.
Свързани статии