この発言は
#00112　Masa            さんのStringGridのある列を書き込み禁止にする
に対するコメントです



#112 Masa さん、こんにちは。yoneです。^_^



StringGridである列を書き込み禁止にする。

例
４列目以降を書き込み禁止にする。

>procedure TForm1.StringGrid1Click(Sender: TObject);
>begin
>  with StringGrid1 do
>  if Col > 3 then
>    Options := Options - [goEditing]
>  else
>    Options := Options + [goEditing];
>end;
この場合だと、書き込み可能なセルから直接書き込み不可能なセルに移動した
場合書き込めてしまいます。

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: 
Longint; var CanSelect: Boolean);
begin
  CanSelect:=not (Col>3);
end;
これで問題ないと思います。

それでは失礼まーす(^.^)/~~。･。･ﾟ★･with Delphi 2.0j(DeskTop)

Original document by yone            氏 ID:(CYG03724)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。