くろねこの備忘録
2024年4月24日(水) 16:40 JST
ボタンのキャプションを2行表示したいと思ったことはありませんか？
実はボタンのキャプションを2行にするのはすごく簡単です。しかし、コンポーネントにしないで実現することは難しいのでコンポーネントを作成してみます。
作り方は、TButtonを継承したボタンを作成します。このボタンのCreateParamをオーバーライドします。
ここでウィンドウ作成パラメータ（Style）にBS_MULTILINEという値を付けl加えることで、2行表示ができるようになります。
注 コンポーネントの作成は[コンポーネント]メニューの新規作成から行えます。
カンマ編集するにはFormat関数を使う方法がありますが、簡単に行うには以下のどちらかの関数を使用します。
具体的には以下のように指定します。
FormatCurr('#,', 123456)
Format関数を使うよりもずっと簡単に、制御できるのでとっても便利です。
WM_IME_COMPOSITION メッセージが発生したときに、ImmGetCompositionString 関数を使ってFEP (IME など) が持つフリガナを取得します。
コンポーネントのKeyPressイベントを使います。
KeyPressイベントでEnterキーが押されたときに、次のコントロールに移動するWindowsのメッセージを送ってフォーカスを移動させます。
任意のコントロールにフォーカスを移動させる場合には、コントロール名.SetFocusを使用します。
procedure Edit1KeyPress(var Key: Char);
begin
if (Ord(Key) = VK_RETURN) and (Shift = []) then
begin
// Enterキーが押されたら、次フィールドへ移動する。
// Delphi関数を使う方法
SelectNext(ActiveControl, GetKeyState(VK_SHIFT) >= 0, true);
// ...Windows Messageを使用する方法
//SendMessage(Handle, WM_NEXTDLGCTL, Ord(GetKeyState(VK_SHIFT) < 0), 0);
// 通常のEnterキーの処理をしないようにクリアしてしまおう。
Key := #0;
end;
end;