掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridをOnExitイベントで編集状態にする (ID:5134)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
擬似的に、F2を押させることでできます。 procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if ACol = 1 then begin StringGrid1.SetFocus; // 現在選択された位置なので設定不要 // StringGrid1.Col := ACol; // StringGrid1.Row := ARow; keybd_event(VK_F2, 0, 0, 0); keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0); end; end; procedure TForm1.StringGrid1Exit(Sender: TObject); begin if StringGrid1.Cells[1,1] <> 'a' then begin StringGrid1.SetFocus; StringGrid1.Col := 1; StringGrid1.Row := 1; keybd_event(VK_F2, 0, 0, 0); keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.