Delphi 2010 Lobjects

[lbsci]

Delphi 2010 a LObjects register eden varmı ?

[merek1983]

evet ben

[lbsci]

ya ben sizi çok seviyorum bana bunu nasıl yaptığınızı anlatırmısınız

[merek1983]

    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/

[merek1983]

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;