Showmessage - Centralizar

08/12/2003

4

Como faço para centralizar a mensagem de um showmesage com mais de uma linha.
Gostaria de centralizar a segunda linha por exemplo


Nilson


T+

e obrigado antecipadamente

:lol:


Responder

Posts

08/12/2003

Deus

Bem, para você ter mais de uma linha, basta usar #13 como caractere especial que representa o [i:e948382100]return[/i:e948382100], da seguinte forma:

ShowMessage(´primeira linha´ + 13 + ´segunda linha´);


E para centralizar, basta usar o código que é disponibilizado aqui pelo próprio ClubeDelphi para centralizar strings:

function CentralizaString(stString: String; btLen: Byte): String;
var
  stTmp: String;
  btTmp: Byte;

begin
  if (btLen < Length(stString)) then
  begin
    Result := ´´;
    Exit;
  end;

  stTmp :=´´;
  btTmp := (btLen - Length(stTring)) div 2;
  while (btTmp > 0) do
  begin
    stTmp := stTmp + ´ ´;
    dec(btTmp);
  end;

  Result := stTmp + stString + stTmp;
end;


Aí, para utilizá-lo, é só fazer a chamada à função. Suponha que você quer centralizar a string [i:e948382100]stTeste[/i:e948382100] num espaço de 30 caracteres. É só você fazer a seguinte chamada:

variavelString := CentralizaString(stTeste, 30)


E depois exibi-la no ShowMessage

ShowMessage(´esta e a primeira linha´ + #13 + variavelString)


Espero que tenha ajudado! :) Abraços, dEUS!


Responder

08/12/2003

Nilson Junior

valeu amigão

T+


´O Senhor Jesus Vem !!!´


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira