« ■先日のデベロッパーキャンプの資料 | トップページ | ☆ComboBoxでリストの自動ドロップダウン »

☆リターンキーで移動させる。

なんだっけ?なんだっけ?となかなか思い出せず、過去のプログラムを 調べて、ようやく見つけた出した SelectNext!超、超、超いまさらですが、書いておきますね。

Form1のKeyPreviewをTrueにする必要があります。
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //リターンキーで移動させる
  if Key = #13 then
  begin
    SelectNext(ActiveControl, True, True);
    Key := #0;
  end;
end;

|

« ■先日のデベロッパーキャンプの資料 | トップページ | ☆ComboBoxでリストの自動ドロップダウン »