Alinhamento a Direita Edit Delphi

Esse é um caso bem comum para vários programadores. A dica foi testada no Delphi 7.

 

Foi criado apenas o Form, um Edit e um Button:

delphi-align-right

No código:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.BiDiMode := bdRightToLeft;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SysLocale.MiddleEast := true;
end;

 

Quando o botão é apertado:

 

delphi-align-right-2

 

Simples assim. Até a próxima.

Nenhum comentário:

Postar um comentário