स्ट्रिंग के टेक्स्टविड्थ (कैनवास के बिना) कैसे प्राप्त करें?

Question

एप्लिकेशन शुरू होने से पहले मैं स्ट्रिंग की टेक्स्ट चौड़ाई प्राप्त करना चाहता हूं। सब कुछ एप्लिकेशन तक ठीक काम करता है। मेनफॉर्म कैनवास मौजूद है। समस्या यह है कि, जब मैं ऐप के ऑनक्रेट ईवेंट में गतिशील रूप से टोडिनिनियम बनाने का प्रयास करता हूं। मुख्य रूप, "कैनवास ड्राइंग की अनुमति नहीं देता है" त्रुटि होती है। (आवेदन। मेनफॉर्म शून्य है ....)। मैंने गतिशील रूप से कैनवास बनाने के कई तरीकों की कोशिश की (उनमें से एक नीचे लिखा गया है), लेकिन यह अभिभावकीय नियंत्रण से जुड़े बिना आकार के आकार को माप नहीं सकता है।

क्या कोई तरीका है कि इसे किसी भी तरह से कैसे काम करना है?

Thanx

मैंने कोशिश की यह:

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

यह काम करता है:

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

मैं अगर यह किया जा सकता है यकीन नहीं है, लेकिन अगर द्वारा "से पहले एप्लिकेशन शुरू होता है" क्या आपका मतलब "से पहले मुख्य रूप प्रदर्शित किया जाता है" , आप हमेशा अपने कैनवास से संबंधित कोड को मुख्य रूप के ऑनक्रेट ईवेंट में डाल सकते हैं। उस बिंदु से आपके पास एक वैध कैनवास होगा।