Länge eines Strings in Pixel ermitteln (ohne Komponenten) ?

[Thomas233]

Hallo,

vielen Dank, das dürfte weiterhelfen.

Das einzige Problem ist noch das ich nicht weiss wie ich eine Font (von der ich nur den Namen als String kenne) festlege der verwendet werden soll.

Momentan erledige ich dies so:

Delphi-Quellcode:

procedure TD3dText.CalcTextSize;
var textSize:TSize;
    dc:hdc;
    fnt:TFont;
begin
dc:=GetDc(0);
fnt.Name:=FontName; // Hier geschieht der Fehler !
SelectObject(DC, fnt.Handle);
GetTextExtentPoint32(dc,PChar(text),length(text),textSize);
end;

In der zweiten Zeile der Prozedur ("fnt.Name:=FontName") jedoch steigt Delphi mit einer Zugriffsverletzung aus. "FontName" ist der String in dem der Name der zu verwendenden Font drinnen steht.

Wie kann ich nun am besten die Font festlegen ?

Vielen Dank nochmals im Vorraus !

Liebe Grüße,
Thomas