Windows APIをいくつか使って移動行数を計算し移動しています。

• EM_LINEFROMCHAR  現在のカーソル位置を取得するのに使用
• EM_LINESCROLL       行を移動させるのに使用
• EM_GETLINECOUNT   TMemoの行数を取得するのに使用
• EM_LINEINDEX          現在のカーソル位置を設定するのに使用

2行表示のリストを作成するには、OnDrawItem イベントと OnMeasureItem イベントを使用します。
以下のステップで行います。

1. OnMeasureItemイベントで2行分表示するための高さを確保します。
2. OnDrawItemイベントでCanvasにテキストを描画します。
3. Styleを「lbOwnerDrawVariable」に変更します。（自分で中身を書き換えますよ！という定義）

この方法は、TCheckListBox でも使用できます。（2行目が固定で“2行目”になっているので、お好みに合わせて変更してください。 また、Styleを「lbOwnerDrawVariable」に変更するのを忘れないでください。）

ボタンのキャプションを2行表示したいと思ったことはありませんか？
実はボタンのキャプションを2行にするのはすごく簡単です。しかし、コンポーネントにしないで実現することは難しいのでコンポーネントを作成してみます。
作り方は、TButtonを継承したボタンを作成します。このボタンのCreateParamをオーバーライドします。
ここでウィンドウ作成パラメータ（Style）にBS_MULTILINEという値を付けl加えることで、2行表示ができるようになります。

注 コンポーネントの作成は[コンポーネント]メニューの新規作成から行えます。

カンマ編集するにはFormat関数を使う方法がありますが、簡単に行うには以下のどちらかの関数を使用します。

• FormatFloat
• FormatCurr

具体的には以下のように指定します。

FormatCurr('#,', 123456)

Format関数を使うよりもずっと簡単に、制御できるのでとっても便利です。