グリッドのセル移動でインプレースエディターの全選択をするには

解決

---

グリッドでオプションのAlwaysShowEditerを設定していて、Enterキーを押すとセルを一個横移動するようにしているのですが、インプレースエディターに切り替わったときにすでに入力されている文字の語尾にカーソルがセットされます。
矢印キーやクリックだと、全選択になりますが、Enterキーで全選択にしたいのです。
宜しくお願いします。

編集    削除

---

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;

編集    削除

---

ありがとうございます。
うまくいきました。

KeyUpのイベントタイミングじゃないと駄目なんですね。
他のいろんなイベントで試しましたが、うまく動きませんでした。

編集    削除

---

解決です。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。