Buscar

Como capturar o tamno em pixel dos caracteres

Código

Num form coloque um edit, um label, um botão e um memo.
no botão coloque o seguinte codigo

label1.caption := '';
label1.width := 0;
label1.caption := edit1.text;
memo.lines.add(edit.text+' '+IntToStr(label1.width));
label1.caption := '';
edit1.clear;
edit1.setfocus;

Claro que deve digitar um caracter por vez, pois ele mostrar a expansão sofrida no label em pixels.

Conforme o tipo de fonte e tamanho no label.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 22/05/07
Por: Wandy Luciano
Visualizada: 3003 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009