//StringGridでﾏｳｽの右ﾎﾞﾀﾝが押された時ｾﾙを移動する

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  MCol,MRow:Longint;
begin
if Button=mbRight then
  with TStringGrid(Sender) do
  begin
    MouseToCell(X,Y,MCol,MRow);
    if (MCol>=FixedCols) and (MRow>=FixedRows) then
      if (MCol<ColCount) and (MRow<RowCount) then
      begin
        Col:=MCol;
        Row:=MRow;
      end;
  end;

end;

                                         97/10/18(土)  凹凹凹(EZQ01045)

Original document by 凹凹凹          氏 ID:(EZQ01045)

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