Button-Caption linksbündig (BS_ALIGN_CENTRELEFT), ohne Speedbutton

[Bummi]

Ich versteh das Problem nicht ganz, da wo die anderen ButtonStyles definiert sind windows.pas fehlt es, wenn Du es nur in der Komponente brauchst deklariere es einfach.

Delphi-Quellcode:

type
  TButton=Class(stdCtrls.TButton)
    procedure CreateParams(var Params: TCreateParams);override;
  End;

//.....

procedure TButton.CreateParams(var Params: TCreateParams);
const
BS_ALIGN_CENTRELEFT=$100;
begin
  inherited;
    Params.Style := Params.Style or BS_ALIGN_CENTRELEFT;
end;