必須使用到GroupBox,但是好像沒有選項將其框線隱藏,請問有辦法嗎?Thank~ ------------------------ 創造其實就是...... 轉個彎看世界......

您好﹗    因為GroupBox元件不擁有BevelInner和BevelOuter兩個控制框線顯示狀態的屬性﹐所以可能沒有辦法去取消GroupBox元件的外框﹒    是否考慮使用Panel元件﹐在設計時期將此元件的BevelInner屬性值和BevelOuter屬性值設定為bvNone即可取消外框的顯示﹒    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

建議用panel元件試試看在屬性方塊那試看看 各位好ㄚ

如果一定要用,用不想更改VCL,可以用一偷機的方式(參考以前Mickey兄PO的一篇文章)..不用重安裝 >) < class="code"> //欺騙的重點QQ.... TGroupBox=class(stdCtrls.TGroupBox) protected procedure Paint; override; end; TForm1 = class(TForm) GroupBox1: TGroupBox; Panel1: TPanel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; .... procedure TGroupBox.Paint; var Rect: TRect; TopColor, BottomColor: TColor; FontHeight: Integer; Flags: Longint; H: Integer; R: TRect; begin Rect := GetClientRect; Frame3D(Canvas, Rect, Color, Color, BorderWidth); with Canvas do begin Font := Self.Font; H := TextHeight('0'); if Text <> '' then begin if not UseRightToLeftAlignment then R := Classes.Rect(8, 0, 0, H) else R := Classes.Rect(R.Right - Canvas.TextWidth(Text) - 8, 0, 0, H); Flags := DrawTextBiDiModeFlags(DT_SINGLELINE); DrawText(Handle, PChar(Text), Length(Text), R, Flags or DT_CALCRECT); Brush.Color := Color; DrawText(Handle, PChar(Text), Length(Text), R, Flags); end; end; end; 永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠

引言: 必須使用到GroupBox,但是好像沒有選項將其框線隱藏,請問有辦法嗎?Thank~

用四個panel把GroupBox蓋住框線將這四個panel的BevelOuter屬性值設定為bvNone.暫時用一用. 發表人 - leo2568 於 2004/01/11 22:47:34