Окно произвольной формы?

Несколько месяцев назад я отвечал на подобный вопрос, поэтому посчитал разумным опубликовать данный пример здесь. Код, приведенный ниже позволяет сделать форму круглой, без заголовка и границ.

Создайте новое приложение.
Перепишите метод формы createparams как показано ниже.
Разместите на форме какое-либо изображение и присвойте свойству transparent значение True.
Установите "скоростную :-)" кнопку (SpeedButton) на форме и создайте метод, закрывающий приложение. (Форма получится круглой, поэтому системные кнопки и системное меню будет недоступно, они останутся за пределами контура формы.)
Создайте метод, показанный ниже, отвечающий за обработку события OnCreate.

Надеюсь я помог вам.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, Buttons;type
TForm1 = class(TForm)Image1: TImage;SpeedButton1: TSpeedButton;procedure FormCreate(Sender: TObject);procedure SpeedButton1Click(Sender: TObject);private{ Private declarations }procedure CreateParams(var Params: TCreateParams); override;public{ Public declarations }end;var
Form1: TForm1;implementation
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited createparams(params);
{Здесь убираем у формы заголовки и границы}
params.style:=params.style or ws_popup xor ws_dlgframe;
end;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
formrgn:hrgn;
begin
{очищаем форму}
form1.brush.style:=bsclear;
{делаем форму круглой}
GetWindowRgn(form1.Handle, formRgn);
DeleteObject(formRgn);formrgn:=CreateroundRectRgn(0,0,form1.width,form1.width,form1.width,form1.width);
SetWindowRgn(form1.Handle, formrgn, TRUE);end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form1.close;
end;
end.

[000106]

Содержание раздела