如何将delphi的界面做成非规则型(100分)

M

moon-light

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #1

如何将delphi的界面做成非规则型，请速回答。在下将感激不尽！[]

 

M

microyzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #2

调用api肯定可以的，但delphi我不熟（我用的是vb）

 

S

superbirdman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #3

var
Form1:TForm1;
h1:HWND;
rgn1:HRGN;
implementation
{$R*.DFM}
procedure TForm1.FormCreate(Sender:TObject)
begin
h1:=Handle;
rgn1:=CreateEllipticRgn(10,10,200,200);
SetWindowRgn(h1,rgn1,True)
end;
end.
试一下,保证你成功!

 

2

203010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #4

http://www.delphibbs.com/delphibbs/dispq.asp?lid=745081
试一下我在这个帖子中的控件吧，想要什么有什么

 

Z

zj_pht

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #5

up

 

酷

酷尔贝塔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-01

• #6

用第三方的界面控件玩一把吧。
http://www.51delphi.com上很多。 []

 

X

xuzhudi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #7

procedure TForm1.FormClick(Sender: TObject);
var
R : HRgn;
begin
if IsRound then
begin
SetWindowRgn(Handle,0,True);
DeleteObject(R);
IsRound := False;
end else
begin
R := CreateEllipticRgn(-15,-15,Width+15,Height+15);
SetWindowRgn(Handle,R,True);
IsRound := True;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IsRound := False;
end;

end.