Readygo技术搜索引擎 网络搜索 efish 2008-1-14 6:26:11

窗体的最小化过程是什么呀？（100分）

楼主dudu8686（飞飞）2002-05-14 15:01:02 在 Delphi / VCL组件开发及应用 提问

小弟的窗体的BorderStyle设为bsNone  
  现在要在窗体中放入一个Button  
  该Button要模拟最小化按钮的功能  
  请问怎么写呀？ 问题点数：100、回复次数：11Top

1 楼lizhenjia（暴雪）回复于 2002-05-14 15:04:15 得分 0

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
    showwindow(self.Handle,SW_MINIMIZE);  
  end;Top

2 楼luoshumeng（乡村意外）回复于 2002-05-14 15:05:47 得分 0

同意楼上！！！！！Top

3 楼lizhenjia（暴雪）回复于 2002-05-14 15:06:59 得分 30

或  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
    self.WindowState:=wsMinimized;  
  end;  
  Top

4 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-05-14 15:09:37 得分 30

SendMessage(Handle,   WM_SYSCOMMAND,   SC_ICON,   0);  
  //or  
      Application.Minimize;  
  Top

5 楼outer2000（天外流星）回复于 2002-05-14 15:12:42 得分 30

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      sendmessage(handle,WM_SYSCOMMAND,SC_MINIMIZE,0);  
  end;  
  Top

6 楼haishen（海神）回复于 2002-05-14 15:16:18 得分 0

就用Application.Minimize吧，只是一个最小化而已，没必要非用API的。Top

7 楼dreamfan（改行不做程序员，回家种地。）回复于 2002-05-14 15:18:25 得分 0

都对Top

8 楼DeathCat（从死亡边缘站起来的患了狂猫病的猫）回复于 2002-05-14 15:35:39 得分 10

showwindow(Handle,SW_MINIMIZE);这个也可以。Top

9 楼andyting（andyting）回复于 2002-05-14 15:48:37 得分 0

那最大化呢？Top

10 楼andyting（andyting）回复于 2002-05-14 15:50:32 得分 0

那最大化呢？  
  Top

11 楼SPIRIT0220（游侠）回复于 2002-05-14 15:52:48 得分 0

gz!Top