syslocale.MiddleEast := True; Edit1.BiDiMode := bdRightToLeft;
He intentado castearlo creandome un componente sin instalar, solo como unidad:
unit EditsExt; interface Uses Windows, StdCtrls, Classes, Controls; type TEditExt = class(TCustomEdit) private FAlignment: TAlignment; procedure CreateParams(var Params: TCreateParams); procedure SetAlignment(const Value: TAlignment); published property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify; end; implementation procedure TEditExt.CreateParams(var Params: TCreateParams); const Alignments: array[TAlignment] of DWord = (ES_LEFT, ES_RIGHT, ES_CENTER); begin inherited CreateParams(Params); Params.Style := Params.Style or Alignments[FAlignment]; end; procedure TEditExt.SetAlignment(const Value: TAlignment); begin if FAlignment <> Value then begin FAlignment := Value; RecreateWnd ; end; end; end.
Usandolo de esta Manera:
TEditExt(Edit1).Alignment := taRightJustify;
Y no me funciona!!!