Buscar por:

Como dividir a frase do label em duas linhas

Código

{Esse exemplo é simples, porém é importante para clarear suas ideias: 

primeiro coloque um label num Form, depois vá no evento onCreate desse Form e acrestente as linhas de codigo a seguir:}

procedure TForm2.FormCreate(Sender: TObject);

var

   i : integer;

   valor, guarda1, guarda2, x : String;

begin

   valor := 'Planeta delphi, a maior comunidade delphi, do Brasil';

   x := valor;

   if Length(x) >= 10 then

   begin

      guarda1 := '';

      guarda2 := '';

      for i := 1 to 40 do

      begin

         guarda1 := guarda1 + x[i];

      end;

      for i := 41 to Length(x) do

      begin

         guarda2 := guarda2 + x[i];

      end;

      Label1.Caption := guarda1 + #13 + guarda2;

   end

   Else

   begin

      for i := 0 to Length(x) do

      begin

         guarda1 := guarda1 + x[i];

      end;

      Label1.Caption := guarda1;

   end;

end;

{eu coloquei o (if Length(x) >= 10 then) porque eu queria que a primeira parte do label tivesse apenas 10 caracteres, e o restante fosse para linha de baixo, mas você pode testar como quiser isso, e caso o Label recebar outros valores, seja do Banco de dados, ou outro lugar, vc troca o carregamento da variavel Valor pela chamada de onde virá os dados. }