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

解決

かんたろう 2006-11-30 11:37:08 No: 24104 IP: 192.*.*.*

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

編集削除

どーぞ 2006-12-01 00:36:30 No: 24105 IP: 192.*.*.*

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

編集削除

かんたろう 2006-12-07 09:21:11 No: 24106 IP: 192.*.*.*

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

編集削除

みんみん 2006-12-11 13:04:50 No: 24107 IP: 192.*.*.*

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

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-11 18:28:25 No: 24108 IP: 192.*.*.*

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

編集削除