TEdit内实现右对齐
我需要在TEdit内实现数值的右对齐,现在用这种方法来改变TEdit的GWL_EXSTYLE属性,不知道为什么不行?声明不想用Memo改写成TEdit的方法。
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DWORD ExStyle;
ExStyle = DWORD(::GetWindowLong(Edit1->Handle, GWL_EXSTYLE)) &(~WS_EX_RIGHT) &(~WS_EX_RTLREADING) &(~WS_EX_LEFTSCROLLBAR);
ExStyle =ExStyle | WS_EX_RIGHT;
::SetWindowLong(Edit1->Handle, GWL_EXSTYLE, ExStyle );
Edit1->Invalidate();
}