Delphi 2010 a LObjects register eden varmı ?
evet ben :D
ya ben sizi çok seviyorum bana bunu nasıl yaptığınızı anlatırmısınız
Borland Delphi 7.0
Borland Delphi 2005 and 2006 for Win32
CodeGear Delphi 2007 and 2009 for Win32
Embarcadero Delphi 2010 and XE
hepsi için standar baglnatı yöntemi :)
http://smartbear.com/support/viewarticle/14484/
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;