Alinhar um TEdit a direita no Delphi.


Inclua no Evento Create do seu Form o código abaixo:


procedure TForm1.FormCreate(Sender: TObject);
begin
  SysLocale.MiddleEast:=True;
  Edit1.BiDiMode := bdRightToLeft;
end;

 Clique aqui e faça o download do exemplo.

Postagens mais visitadas deste blog

Como registrar e desregistrar uma DLL no Windows

Como registrar e desregistrar uma DLL no Windows O processo é bem simples: Menu Iniciar -> Executar e digitar o comando abaixo: Para Registrar: regsrv32 "CAMINHO\NOME DO ARQUIVO.DLL" regsvr32 "C:\WINDOWS\system32\NBioBSPCOM.dll" Para Desregistrar: regsvr32 "CAMINHO\NOME DO ARQUIVO.DLL" -u regsvr32 "C:\WINDOWS\system32\NBioBSPCOM.dll" -u
Leia mais

Função que retorna o nome do executável sem a extensão em delphi.

Resolvi fazer essa função, pois, estava usando uma função nativa do Delphi, a função: ExtractFileName e  ela retornava o nome abreviados, ex: "ith2opont~" em alguns sistemas operacionais antigos  XP , então, resolvi criar uma para evitar este problema: Segue a função Abaixo: function fRemoveExtensao(FileName : String) : String; var   lI : Integer; begin  for lI:=Length(FileName) downto  0 do    begin      if FileName[lI] = '.' then        fRemoveExtensao:=copy(FileName, 1, lI-1);    end; end; begin  for lI:=Length(pPath) downto 0  do    begin      if pPath[lI] = '\' then        begin          Result:=fRemoveExtensao(copy(pPath, lI+1, Length(pPath)));          Exit;        end;    end; end; Como chamar:  fReturn_NameExecutavel_Sem_Extensao(P...
Leia mais