怎么制作类似realplayer7.0的不规则窗体(200分)

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #1

怎么可以实现那些奇形怪状的，最好提供源代码！

 

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #2

http://www.delphibbs.com/delphibbs/dispq.asp?lid=472203

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #3

就是画图函数的运用！

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #4

用setwindowrgn可以设置窗体的边界，包括各种不规则的边界
查查帮助和相关函数

 

?

:)

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #5

我知道有一个名叫 Express ForumLibrary 的控件，里边有一个 dxfShapedForm ，可以制作各种各样
形状的窗体，他是完全免费的（你只要到http://www.devexpress.com/的论坛上注册一下，从注册回信
就可以得到下载地址）

 

L

lxddd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #6

用 Delphi 6 就方便了,Form有几个属性,可以把Form定义成任何形状

 

X

xaojgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #7

setwindowrgny就可以啊

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #8

用控件

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #9

转贴的,用字作窗体,根据这种方式,你当然也可以用你指定的图形作窗体,以此作借鉴.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure WMNCHitTest(var M: TWMNCHitTest);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
BeginPath(Canvas.Handle);
SetBkMode(Canvas.Handle, TRANSPARENT );
Canvas.Font.Name:= '宋体';
Canvas.Font.Size:=100;
Canvas.TextOut( 20, 20, '大富翁');
EndPath(Canvas.Handle);
rgn:= PathToRegion(Canvas.Handle);
SetWindowRgn( Handle, rgn, true );
end;

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
if M.Result=htClient then
M.Result:=htCaption;
inherited;
end;

end.

 

D

davidyuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #10

到 DDDVideo.vip.myrice.com

当一个 funform 控件试一下，更厉害

 

T

tooper

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #11

BUPack 2.0
是很牛的空件
几乎可以满足你的所有要求

 

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #12

那怎么用任意一张BMP，做出不规则窗体的外形

 

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #13

To tooper:
怎样找到那个BUPack 2.0控件

 

Y

yong9898

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #14

用1stclass控件可以实现任意形状的form,到
http://www.51delphi.com/searchsoft.asp?cx=1st
下载。

 

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #15

p.s.我是弱弱的，有些技术细节能讲清点么？
Thank you all the same!

 

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #16

To zhangkan:
怎么才能生成象mediaplayer 7.0那样的rgn:HRGN

 

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #17

[red][/red]Sorry,各位大哥，小弟一时笔误，把mediaplayer7.0写成realplayer7.0了。
见谅。

 

T

tooper

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-09

• #18

http://www.buypin.com
自己down吧，还有很多其他的好东西

 

J

jnu_gentle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #19

多人接受答案了。