LITMIR.BIZ

      Примечание

      В приведенных далее примерах регионы для области отсечения окна создаются при обработке события FormCr eate. Однако это сделано только для удобства отладки и тестирования примеров и ни в коем случае не должно наталкивать вас на мысль, что этот способ является единственно правильным. На самом деле, если в приложении много окон, использующих области отсечения сложной формы, то старт приложения (время от момента запуска до показа первой формы) может длиться по крайней мере несколько секунд. Так происходит потому, что все формы создаются перед показом первой (главной) формы (см. DPR-файл проекта). Исправить ситуацию можно, создавая формы вручную в нужный момент времени либо создавая регионы для областей отсечения, например, перед первым отображением каждой конкретной формы.

      procedure TfrmElliptic.FormCreate(Sender: TObject);

      var

      formRgn, but1Rgn, but2Rgn, but3Rgn: HRGN;

      begin

      //Создаем регионы кнопок

      but1Rgn:= CreateEllipticRgn(0, 0, Button1.Width–1, Button1.

      Height–1);

      SetWindowRgn(Button1.Handle, but1Rgn, False);

      but2Rgn:= CreateEllipticRgn(0, 0, Button2.Width–1, Button2.

      Height–1);

      SetWindowRgn(Button2.Handle, but2Rgn, False);

      but3Rgn:= CreateEllipticRgn(0, 0, Button3.Width–1, Button3.

      Height–1);

      SetWindowRgn(Button3.Handle, but3Rgn, False);

      //Регион для окна

      formRgn:= CreateEllipticRgn(0, 0, Width–1, Height–1);

      SetWindowRgn(Handle, formRgn, True);

      end;