procedure TForm1.FormActivate(Sender: TObject);
var
btn: Longint;
begin
// Button1의 원도우 정보를 얻는다
// 두번째 파리미터 GWL_STYLE는 원도우의 여러 정보중 window style 을
// 얻기 위한 index(offset)입니다
btn := GetWindowLong(Button1.Handle, GWL_STYLE);
// Button1의 원도우 정보를 변경합니다
// GWL_STYLE 부분에 해당하는 정보에 BS_LEFT 를 추가하여 Align을 왼쪽으로 변경
SetWindowLong(Button1.Handle, GWL_STYLE, btn or BS_LEFT);
end;
var
btn: Longint;
begin
// Button1의 원도우 정보를 얻는다
// 두번째 파리미터 GWL_STYLE는 원도우의 여러 정보중 window style 을
// 얻기 위한 index(offset)입니다
btn := GetWindowLong(Button1.Handle, GWL_STYLE);
// Button1의 원도우 정보를 변경합니다
// GWL_STYLE 부분에 해당하는 정보에 BS_LEFT 를 추가하여 Align을 왼쪽으로 변경
SetWindowLong(Button1.Handle, GWL_STYLE, btn or BS_LEFT);
end;