Right-aligned edit/dbedit

Makes only selected controls right-aligned

TEdit=class(StdCtrls.TEdit) protected procedure CreateParams(var Params:TCreateParams); override; end; procedure TEdit.CreateParams(var Params: TCreateParams); begin inherited; if (FindString(Name, ['ID_Count', 'idQuickPay', 'ID_PartPay', 'ID_Total']) >=0) or (Parent.Name = 'fCashup') then Params.Style:=Params.Style or ES_RIGHT; end;

Leave a comment