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

Written on 18 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

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

Создайте новое приложение.
Перепишите метод формы 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 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.

avr форум