TCanvas für TextWidth in Komponente verwenden

[Helmi]

Zitat von Bernhard Geyer:

Wieso noch ein Extra Canvas erzeugen?

Deswegen:

Zitat:

[Fehler] MaskPanelEdit.pas(148): Undefinierter Bezeichner: 'Canvas'

[Edit]
sooo: Nach etwas rumbasteln, hab ich jetzt die Textbreite abhängig von der Schrift:

Delphi-Quellcode:

  //Canvas ereugen
  Canvas            := TCanvas.Create;

  try
    //Handle zuweisen
    Canvas.Handle   := GetWindowDC(FPanel.Handle);

    Canvas.Font     := FPanel.Font;

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