TCanvas für TextWidth in Komponente verwenden

[Helmi]

Ach,

ich könnt mich in den Arsch beissen

Wenn alles so simple wär:

Delphi-Quellcode:

var 
  Canvas    : TCanvas; 

begin 
  //Canvas ereugen 
  Canvas          := TCanvas.Create; 

  try 
    Canvas.Handle := FPanel.Handle;        //Das hat gefehlt!!  //FPanel ist das Panel

    Text_Width    := Canvas.TextWidth(S); 
  finally 
    FreeAndNil(Canvas); 
  end; 
end;