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