Як створити круглу форму на Delphi
Сьогодні я хочу показати вам як ви можете створити, форму нестандартного вигляду, наприклад круглу.
Відкриваємо Delphi і створюємо новий проект, після ключового слова private дописуємо
procedure CreateParams (var Params: TCreateParams); override;
Тиснемо комбінацію клавіш Ctrl + Shift + C
Delphi генерує порожню процедуру.
Подивіться що вийшло у мене і пропишіть те що не вистачає у вас.
procedure TForm1.CreateParams (var Params: TCreateParams);
begin
inherited CreateParams (Params);
Params.Style: = Params.Style or ws_popup xor ws_dlgframe;
end;
Рухаємося далі і створюємо обробник подій OnCreate на формі, прописуємо там наступний код.
Повний лістинг процедури OnCreate:
procedure TForm1.FormCreate (Sender: TObject);
var
FormRgn: hRgn;
begin
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);
end;
Ось і все запускайте проект і насолоджуйтеся результатом.
До зустрічі www.delphi expert.ru
P.S не забуваємо підписуватися на безкоштовну мультимедійну розсилку. Форма для підписки розташована з права і з ліва.