TEditで右寄せ表示する

LINKS

Sfo26U <a href="http://zjulmsoodbuq.com/">zjulmsoodbuq</a>, [url=http://mioawchehsbz.com/]mioawchehsbz[/url], [link=http://obucagbgvrzj.com/]obucagbgvrzj[/link], http://ljsvessnzlmu.com/

TEditで右寄せ表示する †

TEditは基本的なコントロールで、よく使います。
ただ、以前から不満点が一つありまして、「右寄せ表示できない」というものでした。
右寄せ表示したい（数値専用テキストボックスなど）場合は、TMemoで代用したりしていたのですが、マルチライン入力させないようにするのが面倒とか、これはこれでいろいろ不満がありました。
そんな中、うまい手を見つけました。

TFormのＯｎＳｈｏｗイベントの中等で、右寄せ表示したいTEditに対して、

    ::SetWindowLong(Edit1->Handle, GWL_STYLE,
        ::GetWindowLong(Edit1->Handle, GWL_STYLE) | ES_RIGHT);

としてやるだけです。

こんな簡単なことで右寄せ表示のコントロールになるのでした。

※ただし、一説ではWindowsXPでしか有効でないとか…