¿Cómo obtener TextWidth de cadena (sin Canvas)?

Question

Me gustaría obtener el ancho del texto de una cadena antes de que comience la aplicación. Todo funciona bien hasta que aparezca el lienzo Application.MainForm. El problema es que cuando intento crear dinámicamente TOrdinarium en el evento OnCreate de la aplicación. forma principal, se produce el error "El lienzo no permite dibujar". (Application.MainForm es nulo ...). Intenté varias formas de crear Canvas de forma dinámica (una de ellas está escrita debajo), pero no puede medir el tamaño del texto sin estar conectado al control parentelado.

¿Hay alguna manera de hacerlo funcionar de alguna manera?

Gracias

yo probamos este:

TOrdinarium = class (TCustomControl) 
    private 
     function GetVirtualWidth:integer; 
    end; 

constructor TOrdinarium.Create(AOwner:TComponent); 
begin 
inherited; 
Width:=GetVirtualWidth; 
end; 

function TOrdinarium.GetVirtualWidth:integer; 
var ACanvas : TControlCanvas; 
    begin 
    ACanvas := TControlCanvas.Create; 
    TControlCanvas(ACanvas).Control := Application.MainForm; 
    ACanvas.Font.Assign(Font); 

    result:=ACanvas.TextWidth('0'); 

    ACanvas.Free; 
    end; 

Answer 1

Esto funciona:

procedure TForm1.FormCreate(Sender: TObject); 
var 
    c: TBitmap; 
begin 
    c := TBitmap.Create; 
    try 
    c.Canvas.Font.Assign(self.Font); 
    Caption := IntToStr(c.Canvas.TextWidth('My String')); 
    finally 
    c.Free; 
    end; 
end; 

Answer 2

no estoy seguro de si esto se puede hacer, pero si por "antes de que comience la aplicación" quiere decir "antes de que se muestre el formulario principal" , siempre podría poner su código relacionado con el lienzo en el evento OnCreate del formulario principal. Tendrás un lienzo válido en ese punto.