Edit-Feld an Text anpassen

[64Jabor]

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

[shmia]

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

[64Jabor]

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

[titanic]

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 :wink: :

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 :pale: ).

Gute Nacht :hi:

Titanic