1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
| procedure TForm1.FormCreate(Sender: TObject); var formregion, secregion: HRGN; corners: Array [0..2] of TPoint; begin formregion := CreateRoundRectRgn( 0, 0, clientwidth, clientheight-48, 40, 40 ); corners[0] := Point( 50, clientheight-50 ); corners[1] := Point( 55, clientheight ); corners[2] := Point( 80, clientheight-50 ); secregion := CreatePolygonRgn( corners, 3, WINDING ); CombineRgn( formregion, formregion, secregion, RGN_OR ); DeleteObject( secregion ); SetWindowRgn( handle, formregion, true ); end; |