Danke für die Antwort. Daran habe ich garnicht gedacht.
Delphi-Quellcode:
...
end else if (Align = 'justify') then
begin
fmt.wAlignment:=PFA_JUSTIFY;
end;
ShowMessage(IntToStr(Editor.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt))));
ShowMessage(SysErrorMessage(GetLastError()));
ShowMessage1: 0
ShowMessage2: Der Vorgang wurde erfolgreich ausgeführt.