Caroso,
Cita:
Empezado por dec
...recordemos la propiedad "EllipsisPosition" de los componentes "TLabel"...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.AutoSize := False;
Label1.EllipsisPosition := epEndEllipsis;
Label1.Caption := 'El valor aproximado de PI es : 3.141592653589793238462643383279502884197169' +
'399375105820974944592307816406286208998628034825342117067982148086513282306' +
'647093844609550582231725359408128481117450284102701938521105559644622948954' +
'930381964428810975665933446128475648233786783165271201909145648566923460348' +
'610454326648213393607260249141273724587006606315588174881520920962829254091' +
'715364367892590360011330530548820466521384146951941511609433057270365759591' +
'953092186117381932611793105118548074462379962749567351885752724891227938183' +
'011949129833673362440656643086021394946395224737190702179860943702770539217' +
'176293176752384674818467669405132000568127145263560827785771342757789609173' +
'637178721468440901224953430146549585371050792279689258923542019956112129021' +
'960864034418159813629774771309960518707211349999998372978049';
end;
end.
El código anterior
es una variante en Delphi 2010, del código sugerido en el
Msg #2.
Revisa estos links:
Espero sea útil
Nelson.