这样怎么处理呀？(50分)

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-02

• #1

请问当一个窗体BorderStyle设为bsNone时，怎样在窗体上加几个Button实现最大，最小化
恢复功能？
谢谢

 

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-03

• #2

没人帮忙？

 

H

Holyowl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-03

• #3

1:实现最大
procedure Form1.Button1Click(Sender:TObject);
begin
Application.Maximize;
end;

2:实现最小化
procedure Form1.Button1Click(Sender:TObject);
begin
Application.Minimize;
end;

3:恢复
procedure Form1.Button1Click(Sender:TObject);
begin
Application.NormalizeTopMosts;
end;

 

B

BoyDB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-04

• #4

实现最大:
tform1.WindowState:=wsMaximized;
实现最小，恢复，可以相应的改变windowState的值

 

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #5

多人接受答案了。