StringGridの外枠線の色を変更するには？

解決

かんたろう 2006-11-30 20:37:08 No: 24104

StringGridの、Ctl3DプロパティをFalseにすると外枠は黒の実線になりますが、この色を変更する方法があれば教えてください。
よろしくお願いします。

どーぞ 2006-12-01 09:36:30 No: 24105

http://www2c.airnet.ne.jp/sone/
書式指定グリッド TStrColGrid

かんたろう 2006-12-07 18:21:11 No: 24106

遅くなりました。
参考にさせていただきます。

みんみん 2006-12-11 22:04:50 No: 24107

線の太さが１でいいならこれでできるかも

public
    { Public 宣言 }
    OriginProc:TWndMethod;
    procedure SubclassProc(var Msg:TMessage);
----------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
  Originproc :=StringGrid1.WindowProc;
  StringGrid1.WindowProc :=Subclassproc;
  StringGrid1.Ctl3D :=false;
end;

procedure Tform1.SubclassProc(var Msg:TMessage);
var
  DC :HDC;
begin
   Originproc(Msg);
  if Msg.Msg=WM_PAINT then
    begin
      inherited;
      with StringGrid1 do begin
        DC :=GetwindowDC(handle);
        with canvas do begin
          Handle :=DC;
          Brush.Style :=bsClear;
          Pen.Color :=clred;
          Pen.Width :=1;
          Rectangle(0,0,width,height);
        end; //with
        ReleaseDC(handle,DC);
      end;//with
    end;
end;

かんたろう 2006-12-12 03:28:25 No: 24108

みんみんさん、レスありがとうございます。
提示していただいたソースで、思い通の表示ができました。
ありがとうございました。