delphi 的 TButton 控件的 Caption 文字默认是居中对齐,并且没有提供设置对齐方式的属性和方法,那么如何让Caption 文字左对齐或者右对齐呢?通过调用 API 函数可以实现:
var
Style: Integer;
begin
Style := GetWindowLong(btn1.Handle, GWL_STYLE);
Style := Style or BS_LEFT;
SetWindowLong(btn1.Handle, GWL_STYLE, Style);
end;