Создание формы с закругленными верхними углами
Категория: Delphi/Pascal
2011-08-22 23:24:57
code: #delphi
- procedure TProgramForm.FormResize(Sender: TObject);
- var
- Rgn, Rgn1: HRGN; // Регионы
- begin
- Rgn := CreateRoundRectRgn(0, 0, width, 32, 20, 20);
- Rgn1 := CreateRoundRectRgn(0, 22, width, height, 0, 0);
- CombineRgn(Rgn, Rgn, Rgn1, RGN_OR);//----------------объединяем
- SetWindowRgn(Handle, Rgn, true);//--------------применяем
- end;
Поделиться: