code:void __fastcall TForm1::Button1Click(TObject *Sender){DWORD dwStyle = GetWindowLong(Button1->Handle, GWL_STYLE);dwStyle = dwStyle | BS_RIGHT;//(o BS_LEFT, o BS_CENTER)SetWindowLong(Button1->Handle, GWL_STYLE, dwStyle);Button1->Invalidate();}
void __fastcall TForm1::Button1Click(TObject *Sender){DWORD dwStyle = GetWindowLong(Button1->Handle, GWL_STYLE);dwStyle = dwStyle | BS_RIGHT;//(o BS_LEFT, o BS_CENTER)SetWindowLong(Button1->Handle, GWL_STYLE, dwStyle);Button1->Invalidate();}