Texthöhe berechnen (mit Zeilenumbruch)

[Keldorn]

ok, da seh ich jetzt nicht durch, die vielen Variablen verwirren mich für diese Uhrzeit .

und du verwirrst mich, in deinem ersten Posting möchtest du Text untereinader, im letzten nebeneinander .
Für untereinander würde ich es so probieren:

Delphi-Quellcode:

Var r:Trect;
    s1,s2:string;
    hoehe:integer;
begin
  //untereinander
  r:=rect(20,30,150,100);
  s1:='Einfach mal so aus der Unit gezogen (etwas unübersichtlich vielleicht, da ich doch am Experminetieren bin)';
  s2:='Kannst ja noch ein kleines ShowMessage rundrum legen und die Veränderung ansehen. Das Problem bei mir ist, dass ich zwei Textausgaben nebeneinander darstellen möchte ';

  Hoehe:=DrawText(Canvas.handle, PChar(s1), Length(s1), R, dt_calcrect or dt_wordbreak);
  r.Bottom:=r.Top+hoehe;
  DrawText(Canvas.handle, PChar(s1), Length(s1), R, dt_wordbreak);
  //rechteck verschieben und anderen Text daruntersetzen
  offsetrect(r,0,hoehe);
  Hoehe:=DrawText(Canvas.handle, PChar(s2), Length(s2), R, dt_calcrect or dt_wordbreak);
  r.Bottom:=r.Top+hoehe;
  DrawText(Canvas.handle, PChar(s2), Length(s2), R, dt_wordbreak);