一个简单的问题？(80分)

E

etiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #1

我想判断两个答案，我该怎么做呀。。例如：
————————————————————————————-------
假如我想要一个按钮，让它能够实现两个功能，就是最大化和最小化
当窗口最大化的时候，点击按钮实现最小化。当窗口最小化时，再次点
击按钮实现最大化功能。。。。
----------------------------------------------------------------
请详解，解释不详我不给分

 

苦

苦中求乐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #2

gz

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #3

procedure Button1Click(Sender: TObject)
begin
if Button1.Tag = 0 then
begin
Button1.Tag := 1;
WindowState := wsMaximized;///最大化；
end
else
begin
Button1.Tag := 0;
WindowState := wsNormal;///正常；
end
end

 

W

wwolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #4

在程序中设定一个全局变量winstate
如果当前是最大化则winstate=2
如果是最小化则winstate=1
在按钮的事件里

if winstate=1 then
begin
最大化（好像是self.max呵呵我忘了）
winstate:=2;
end;
if winstate=2 then
begin
最小化
winstate:=1;
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #5

两条消息

postmessage(handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
postmessage(handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #6

if form1.WindowState =wsMaximized then
form1.WindowState :=wsMinimized
else if form1.WindowState =wsMinimized then
form1.WindowState := wsMaximized
else
;
这没什么可解释的，窗台有WindowState属性，判断一下他是最大化还是最小化就行了

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #7

if form1.WindowState=wsMaximized then
form1.WindowState:=wsMinimized
else
form1.WindowState:=wsMaximized;

 

E

etiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #8

你的回答我很满意，本人在谢谢了