小弟想要把DBEdit的外框加上線和顏色用來做欄位的分別,請問如何可做到??

将DBEdit放在panel上，设置panel的color属性就可以实现了！

當滑鼠放到DBEdit時，出現紅色邊框，看看是否是你需要的。

 
procedure TForm1.DBEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Form1.Repaint; 
 Form1.Canvas.Pen.Color:=clRed;
 Form1.Canvas.Pen.Width:=5;
 Form1.Canvas.Polyline([Point(DBEdit1.left,DBEdit1.top),
                        Point(DBEdit1.left DBEdit1.width,DBEdit1.top),
                        Point(DBEdit1.left DBEdit1.width,DBEdit1.top DBEdit1.Height),
                        Point(DBEdit1.left,DBEdit1.top DBEdit1.Height),
                        Point(DBEdit1.left,DBEdit1.top)]); 
end;

兩位前輩的方式都可以做，小弟有個問題就是，這個DBEdit會在開啟程式的時候就必須展現出框的顏色，當然mathewzhao前輩的方式必須改寫到其他地方，若當我要依資料判斷此DBEdit是否要顯示的時候，無論兩種方式都要也一起隱藏，若是用panel的話較簡單，若是用畫的話??是不是變成重新畫其他有顯示的就好~~小弟說的若有錯誤請前輩們在指點，或是有更好的方式ㄋ??

引言: 兩位前輩的方式都可以做，小弟有個問題就是，這個DBEdit會在開啟程式的時候就必須展現出框的顏色，當然mathewzhao前輩的方式必須改寫到其他地方，若當我要依資料判斷此DBEdit是否要顯示的時候，無論兩種方式都要也一起隱藏，若是用panel的話較簡單，若是用畫的話??是不是變成重新畫其他有顯示的就好~~小弟說的若有錯誤請前輩們在指點，或是有更好的方式ㄋ??

補充一下,若用畫線的方式，若線畫在DBEdit上面，線還是會被DBEdit蓋住，看不到線，有辦法讓線呈現在DBEdit上面嗎??

//不知這是否是你需要的，當按Button1時紅框和DBEdit1都隱藏 

procedure TForm1.DBEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  if DBEdit1.Visible then
  begin
    Form1.Repaint;
    Form1.Canvas.Pen.Color:=clRed;
    Form1.Canvas.Pen.Width:=5;
    Form1.Canvas.Polyline([Point(DBEdit1.left,DBEdit1.top),
                        Point(DBEdit1.left DBEdit1.width,DBEdit1.top),
                        Point(DBEdit1.left DBEdit1.width,DBEdit1.top DBEdit1.Height),
                        Point(DBEdit1.left,DBEdit1.top DBEdit1.Height),
                        Point(DBEdit1.left,DBEdit1.top)]);
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Repaint;
 DBEdit1.Visible:=false;
end;
        

了解~~感謝~~但若線畫在DBEdit上面，線還是會被DBEdit蓋住，看不到線，有辦法讓線呈現在DBEdit上面嗎?? 發表人 - yabula 於 2003/09/04 18:32:31

Hi! yabula兄 

引言: 但若線畫在DBEdit上面，線還是會被DBEdit蓋住，看不到線，有辦法讓線呈現在DBEdit上面嗎?

如果方便的話,能否稍做一下解釋你的問題,我不太明白.

也就是我想把線畫在DBEdit的物件範圍內，但是DBEdit會將線遮住，不知您這樣了解嗎??

引言: 也就是我想把線畫在DBEdit的物件範圍內，但是DBEdit會將線遮住，不知您這樣了解嗎??

改寫DBEdit元件如何， 我依據你的需求，稍加改寫DBEdit元件，增加FrameColor屬性，預設值為紅包 若設成clNone則呈現出原始樣式 Source Code 如下 unit DBEditFC; interface uses SysUtils, Classes,windows,messages, Controls, StdCtrls, Mask, DBCtrls,Graphics; type TDBEditFC = class(TDBEdit) private FFrameColor: TColor; FCanvas : TControlCanvas; procedure SetFrameColor(const Value: TColor); procedure WMPaint(var Message: TWMPaint); message WM_PAINT; published constructor Create(AOwenr:TComponent);override; Destructor Destroy;override; property FrameColor:TColor read FFrameColor write SetFrameColor; end; procedure Register; implementation procedure Register; begin RegisterComponents('Sample', [TDBEditFC]); end; { TDBEditFC } constructor TDBEditFC.Create(AOwenr: TComponent); begin inherited; FCanvas := TControlCanvas.Create; FCanvas.Control := Self; FFrameColor := clRed; end; destructor TDBEditFC.Destroy; begin FCanvas.Free; inherited; end; procedure TDBEditFC.SetFrameColor(const Value: TColor); begin FFrameColor := Value; invalidate; end; procedure TDBEditFC.WMPaint(var Message: TWMPaint); begin inherited; if FFrameColor <> clNone then begin FCanvas.Handle := Message.DC; FCanvas.Brush.Color := FFrameColor; FCanvas.FrameRect(ClientRect); end; end; end. 唉~

不好意思~~忙到今天才有空回,改元件的方式我試過了,這方式應該比較適合我,謝謝您,再多請教一下,若框線可以調整粗細要怎改??

------
ivankuo