Элементы управления с закругленными краямиDelphi , Компоненты и Классы , КомпонентыЭлементы управления с закругленными краями
Оформил: DeeCo procedure MakeRounded(Control: TWinControl); var R: TRect; Rgn: HRGN; begin with Control do begin R := ClientRect; rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20); Perform(EM_GETRECT, 0, lParam(@r)); InflateRect(r, - 5, - 5); Perform(EM_SETRECTNP, 0, lParam(@r)); SetWindowRgn(Handle, rgn, True); Invalidate; end; end; procedure TForm1.Button1Click(Sender: TObject); begin // TMemo: Memo1.BorderStyle := bsNone; MakeRounded(Memo1); // TEdit: Edit2.BorderStyle := bsNone; MakeRounded(Edit2); // TPanel: MakeRounded(Panel1); // TStaticText: MakeRounded(StaticText1); // TForm Form1.BorderStyle := bsNone; MakeRounded(Form1); end; Статья Элементы управления с закругленными краями раздела Компоненты и Классы Компоненты может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Компоненты ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |