Länge eines Textes in Pixel ermitteln

[Bummi]

@asm
warum so pessimistisch ... alles was gemalt wird hat ein Canvas (lassen wir OGL und Directx mal aussen vor)

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
c:TCanvas;
begin
 c:=TCanvas.Create;
 try
 c.Handle := GetDC(Button1.Handle);
 c.Ellipse(0,0,10,10);
 finally

   c.Free
 end;
end;