Showmessage - Centralizar
08/12/2003
0
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:
Gostaria de centralizar a segunda linha por exemplo
Nilson
T+
e obrigado antecipadamente
:lol:
Nilson Junior
Curtir tópico
+ 0
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:
E para centralizar, basta usar o código que é disponibilizado aqui pelo próprio ClubeDelphi para centralizar strings:
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:
E depois exibi-la no ShowMessage
Espero que tenha ajudado! :) Abraços, dEUS!
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
Clique aqui para fazer login e interagir na Comunidade :)
