Формы неправильной формы

Question

Многие современные приложения имеют формы неправильной формы.Каков наилучший способ сделать это в Delphi?Возможно ли это сделать без использования сторонних VCL?

Answer 1

Да возможно, вы должны использовать функцию SetWindowRgn , чтобы установить новую область окна для рисования.

попробуйте этот код

procedure TForm1.FormCreate(Sender: TObject);
var
  region:HRGN;
begin
  region := CreateRoundRectRgn(ClientRect.left, ClientRect.top, ClientRect.right, ClientRect.bottom, 15, 15);
  SetWindowRgn(Handle, region, true);
end;

проверьте тезисные ссылки для получения дополнительной информации

• Создание фасонных форм (с использованием растрового изображения)
• Можно ли создавать формы с формами, отличными от стандартной прямоугольной формы в Windows? (с использованием полигона)

Answer 2

Вы можете использовать свойство TForms TransparentColorValue . В сочетании с BorderStyle = bsNone это даст вам такую ​​форму.