TEdit内でENTERを押したときにイベントを発生させたいのですが
on〜で探したのですが
見つかりませんでした。
何かいい方法はないでしょうか?
OnKeyDown,OnKeyUpまたはOnKeyPressです。
OnKeyDown,OnKeyUpは、物理的にキーが押された時(OnKeyUpは、放した時)に発生します。OnKeyPressは、文字キーが押された時に発生します。
(詳しくはHelpにて...)
OnKeyPressイベントで
procedure TForm1.Edit1KeyPress(Sender:TObject;var Key:Char);
begin
if (Key=Chr(VK_RETURN)) then begin
Key := #0;
{やりたいことをここに記述する}
end;
end;
を記述することで可能だと思います。
ツイート | ![]() |