Edit的color屬性可以在Design time變化Edit的背景顏色. Font->color屬性可以在Design time變化Font的顏色. 請問怎樣實現在Design time 變化Border的顏色呢? ======================================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

TEdit 沒法做到 得繼承之後再來實現 小弟看了一下 R3C 的 TRzEdit 元件的 source 其方式為攔截 WM_NCPaint 這個 message 然後再去畫邊框(border)的顏色    -- He just never quits.

我想看看TRzEdit的Source. 謝謝 ======================================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

Raize Components: http://www.raize.com/DevTools/Products.htm    或者參考 Peter Below 大大的作品 TPBLineEdit 原始碼如下:

unit PBLineEdit;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TPBLineEdit = class(Tedit)
  private
    { Private declarations }
    procedure WMNCPaint( var msg: TWMNCPaint ); message WM_NCPAINT;
  public
    Constructor Create( aOwner: TComponent ); override;        property ParentColor default true;
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('PBGoodies', [TPBLineEdit]);
end;    { TPBLineEdit }    constructor TPBLineEdit.Create(aOwner: TComponent);
begin
  inherited;
  ParentColor := true;
end;    procedure TPBLineEdit.WMNCPaint(var msg: TWMNCPaint);
var
  cv: TCanvas;
  dc: HDC;
  r: TRect;
begin
  dc:= GetWindowDC( handle );
  SaveDC( dc );
  try
    cv:= TCanvas.Create;
    try
      cv.Handle := dc;
      cv.Lock;
      r:= Rect( 0, 0, Width, Height );
      With cv.Brush Do Begin
        Color := Self.Color;
        Style := bsSolid;
      End;
      cv.FrameRect( r );
      InflateRect( r, -1, -1 );
      cv.FrameRect( r );
      With cv.Pen Do Begin
        Color := clBlack;
        Style := psSolid;
        Width := 2;
      End;
      cv.MoveTo( r.Left, r.Bottom );
      cv.LineTo( r.right, r.Bottom );
    finally
      cv.Unlock;
      cv.free;
    end;
  finally
    RestoreDC( dc, -1 );
    ReleaseDC( handle, dc );
  end;
end;    end.

-- He just never quits.