Hi DP,
ich versuche gerade die Höhe meines Edit-Feldes an den darin enthaltenen Text anzupassen.
Wäre es statt Höhe die Breite und es kein Edit-Feld sondern iwas mit nem canvas wäre es per <objekt>.canvas.textwidth kein problem...
Nun ist es jedoch leider die Höhe und ein Edit-Feld - keine canvas vorhanden...

Hat jemand ne Idee wie es sonst noch geht...?

mfg 64Jabor

Normalerweise ist doch Property Autosize = True, dann passt sich die Höhe autom. an die eingestellte Schrift an.

Ja normalerweise aber Rich-Edit-Felder haben gar keine Eigenschaft "AutoSize"...leider!
Hier auch ein Hinweis...sry!...NICHT Edit-Felder, sondern RICH-Edit-Felder !!!

Hallo 64Jabor,

hier: http://www.groupsrv.com/computers/about67968.html

gibt es Informationen über das bestimmen der Breite/Höhe eines strings unter den umständen eines Richedit's oder jeder anderen Funktion/Prozedur, die 'GetDC' aufruft.

Canvas kann was :

zusammenfalten · markieren

Delphi-Quellcode:

Canvas := TCanvas.Create;
try
Canvas.Handle := GetDC(0);
try
Height := Canvas.TextHeight('asdf');
Width := Canvas.TextWidth('asdf');
finally
ReleaseDC(0, Canvas.Handle);
Canvas.Handle := 0;
end;
finally
Canvas.Free;
end;

sieht doch gut aus (man muss darauf achten Height und Width als Variablen zu deklarieren , sonst werden Height und Width der Form benutzt ).

Gute Nacht

Titanic