vertikales Zentrieren in abgeleiteter Edit-Kompo

[messie]

Zitat von Luckie:

Wo hast du denn den Code hingeschrieben? Du müsstest die Paint-Methode von TEdit überschreiben und dort mit DrawText den Text ausgeben / zeichnen.

Ich habe das, was ich versucht habe, nicht mehr wiedergefunden. Mein Edit ist aber aus dem TntEdit abgeleitet, was fürs Schreiben des WideStrings andere Routinen benutzt als TEdit

Delphi-Quellcode:

function Tnt_SetWindowTextW(hWnd: HWND; lpString: PWideChar): BOOL;
begin
  if Win32PlatformIsUnicode then
    Result := SetWindowTextW{TNT-ALLOW SetWindowTextW}(hWnd, lpString)
  else
    Result := SetWindowTextA{TNT-ALLOW SetWindowTextA}(hWnd, PAnsiChar(AnsiString(lpString)));
end;

Da hatte ich versucht, mit DrawText zu arbeiten aber das klappte nicht, deshalb die Frage.

Grüße, Messie