Showmessage - Centralizar
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
Curtidas 0
Respostas
Deus
08/12/2003
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!
GOSTEI 0
Nilson Junior
08/12/2003
valeu amigão
T+
´O Senhor Jesus Vem !!!´
T+
´O Senhor Jesus Vem !!!´
GOSTEI 0