掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridの外枠線の色を変更するには？ (ID:24107)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
線の太さが１でいいならこれでできるかも 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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.