掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
グリッドのセル移動でインプレースエディターの全選択をするには (ID：43125)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
KeyUp で InplaceEditor.SelectAll type TStringGrid = class(Vcl.Grids.TStringGrid); procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin StringGrid1.Col := StringGrid1.Col + 1; end; end; procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin TStringGrid(StringGrid1).InplaceEditor.SelectAll; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.