全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1016
推到 Plurk!
推到 Facebook!

窗体如何设置,才能只显示最小化按钮

尚未結案
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-28 12:41:33 IP:222.183.xxx.xxx 未訂閱
大大好: 请问窗体如何设置属性,才能只显示最小化按钮, 我修改窗体的属性bordericons=[biminimize],为什么显示不出来呢。如何屏蔽掉关闭按钮菜单呢?     
 
object Form1: TForm1
  Left = 469
  Top = 287
  AutoSize = True
  BorderIcons = [biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 45
  ClientWidth = 104
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13      object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 104
    Height = 45
    Cursor = crCross
    Align = alClient
    Caption = #32472#22270#24037#20855
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 16
      Width = 23
      Height = 22
      GroupIndex = 1
    end
    object SpeedButton2: TSpeedButton
      Left = 32
      Top = 16
      Width = 23
      Height = 22
      GroupIndex = 1
    end
    object SpeedButton3: TSpeedButton
      Left = 56
      Top = 16
      Width = 23
      Height = 22
      GroupIndex = 1
    end
  end
end
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-28 13:38:31 IP:218.80.xxx.xxx 未訂閱
FORM里有个BorderIcons属性,可以设成FALSE,BorderStyle设成DIALOG就可以了
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-28 14:06:53 IP:222.183.xxx.xxx 未訂閱
引言: FORM里有个BorderIcons属性,可以设成FALSE,BorderStyle设成DIALOG就可以了
我把bordericons=[]:全设为false了,BorderStyle=bsDIALOG 标题栏上依然是空空如也,怎么回事呢?
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-06-28 16:39:32 IP:218.80.xxx.xxx 未訂閱
你FORM1的CAPTION没有呀
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-06-28 18:04:23 IP:222.183.xxx.xxx 未訂閱
我把caption=''赋为空
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-06-29 11:22:31 IP:218.80.xxx.xxx 未訂閱
赋为空当然没东西看到啦
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-06-29 15:04:20 IP:222.183.xxx.xxx 未訂閱
是我没有说清楚, 希望运行程序后,去除窗体上右上方的最大化、关闭按钮,而只留下最小化按钮。同时希望该窗体出现在屏幕的右下方
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-06-30 08:43:15 IP:202.39.xxx.xxx 未訂閱
沒辦法只通過設屬性來達成, 參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&th=ee8631f214b7a0d7&rnum=24 http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&th=1f7d89d0dfa5bb24&rnum=74 -- Everything I say is a lie.
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-06-30 12:56:10 IP:222.183.xxx.xxx 未訂閱
谢谢Hagar大大。 在“Minimize Box Only"中。 ”So your only option would indeed be to remove all border icons and then paint a replacement yourself.“ 是不是说要把窗体的bordericons=[], 然后再用windows消息重新绘制最小化按钮?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-07-01 09:25:23 IP:202.39.xxx.xxx 未訂閱
小弟想您可將整個 Title bar 都拿掉(BorderStyle 屬性設為 bsNone) 然後做自己的 Title bar, 放一個最小化的 Button -- Everything I say is a lie.
系統時間:2024-05-18 6:16:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!