Dize TextWidth (Tuvalsiz) nasıl alınır?

Question

Bir uygulama başlamadan önce bir dizenin metin genişliğini almak istiyorum. Her şey, Application.MainForm'un tuvalini sunana kadar iyi çalışıyor. Sorun, uygulamanın OnCreate olayında dinamik olarak TOrdinarium'u oluşturduğumda. ana formu, "Tuval çizim izin vermiyor" hatası oluşur. (Application.MainForm sıfırdır ....). Tuvali dinamik olarak oluşturmanın birkaç yolunu denedim (bunlardan biri aşağıda yazılmıştır), ancak metin boyutlarını ebeveyn kontrolüne eklenmeden ölçemez.

Bir şekilde nasıl çalışacağın yolu var mı? Bu yapılabilir eğer

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

Bu çalışır:

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

emin değilim ama "uygulaması başlamadan önce" kastın eğer "ana form görüntülenmeden önce": Thanx

Bu çalıştı tuvalinizle ilgili kodu her zaman ana formun OnCreate etkinliğine koyabilirsiniz. Bu noktadan geçerli bir tuvaliniz olacak.