freepascal.ru

Есть форма без рамки (bsNone) и создан регион. Как сделать чтобы можно было изменять размеры формы (растягивать) ?

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Windows, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;

type

{ TForm1 }

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
Var R : TRect;
Rgn : HRGN;
begin
Form1.BorderStyle := bsNone;
R := ClientRect;
Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 7, 7);
SetWindowRgn(Handle, Rgn, True);
DeleteObject(Rgn);
end;

procedure TForm1.FormPaint(Sender: TObject);
Var R : TRect;
Rgn : HRGN;
begin
R := ClientRect;
Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 7, 7);
SetWindowRgn(Handle, Rgn, True);
DeleteObject(Rgn);
end;

initialization
{$I unit1.lrs}

end.

используйте тег CODE иначе никто не будет читать сообщение