birde bu sekil kolay yol var:D
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
interface
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
protected
procedure WMNCHitTest(var Msg:TMessage); message WM_NCHITTEST;
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderStyle := bsNone;
SetWindowRgn(Handle,CreateEllipticRgn(10,10,Width-10,Height-10),
False);
end;
procedure TForm1.WMNCHitTest(var Msg:TMessage);
begin
Msg.result := HTCAPTION;
end;