Text im Edit vertikal Zentrieren

[Natcree]

Hallo ich habe schon das Forum nach diesem Thema durchsucht. jedoch nichts brauchbares gefunden.

Wie kann ich den Text in einem Tedit vertikal Zentrieren

Horizontal geht ja so

Delphi-Quellcode:

SetWindowPos(Edit3.Handle, HWND_TOP, 0, 0, 0, 0,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

Gibt es da was Ähnliches?

[himitsu]

Wie solle sich eigentlich wie "äußere" Position des Edits auf die innere Textposition auswirken?

Horizontal ist kein Problem.
SetWindowLong(Edit.Handle, GWL_STYLE, ES_CENTER); oder mal ein etwas neueres Delphi besorgen TEdit.Alignment.

Aber Vertikal ... du hättest ja auch mal due SuFu oder Google befragen können.
http://www.delphipraxis.net/23345-te...entrieren.html
http://www.delphipraxis.net/82809-te...usrichten.html
http://www.delphipraxis.net/77243-te...usrichten.html
...

Man kann aber Vertikal auch so tun als ob.
- ein Panel nehmen und damit den Rahmen nachbilden. (Umrandung und Hintergrundfarbe anpassen)
- beim OnClick den Fokus auf das Edit setzen
- beim Edit den Rahmen ausblenden
- und nun nur noch das Edit vertikal im Panel positionieren


Aber da es eh IMHO irgendwie nutzlos ist, ein Edit haben zu wollen, wo nutzlos viel Platz verschwendet wird, hat mit dem Vertikal wohl auch kaum jemand ein Problem, weil es niemand benutzt.

[Natcree]

Dachte er an sowas wie auf dem Bild

[DeddyH]

Wenn das durch den Endbenutzer nicht editierbar sein soll, würde ich mir fix was Eigenes auf Basis von TGraphicControl/TCustomControl basteln.

[Perlsau]

Sieht eher so aus, als solle der Anwender hier einen Suchbegriff eingeben können – sonst bräuchte man ja kein Editfeld; ein TLabel würde genügen, und das kann man leicht horizontal (Alignment) und vertikal (Layout) zentrieren. Ob Delphi7 bereits das Property Layout kennt, weiß ich allerdings nicht.

[Dejan Vu]

Wenn man seine GUI an das Tablet/Fon Look&Feel anpassen will, dann muss man die Controls stark vergrößern, ohne die Schrift mitzuziehen. Das es vermutlich geht, zeigt diese Lösung , und zwar ohne workarounds, Panels, labels etc.

Die Lösung ist zwar in VB, aber da eh nur ein paar Messages an das Control geschickt werden (und ein wenig rumgerechnet), sollte man das problemlos in Delphi abbilden können.