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

Question

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

Answer 1

yes возможно, вы должны использовать функцию 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; 

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

• Creating Shaped Forms (с использованием растрового изображения)
• Is it possible to create forms with shapes other than the standard rectangular shape in Windows? (с использованием Полигона)

Answer 2

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