In eine Zeile in einem Richtext mehrere texte einfügen.

[Zugi]

Hallo!

@DeddyH: Bist nicht der einzige
@Power-Poler: In #12 hatte ich schon die "Lösung" mit den Leerzeichen skizziert.

So, wenn ich mich schon mal damit auseinandersetze:

Schau mal unter http://www.delphipraxis.net/internal...=emsettabstops

Bezieht sich zwar auf TMemo, ist aber Deinem Problem sehr ähnlich. Ausschnitt aus #13:

Zitat:

Delphi-Quellcode:

var
  ndx : integer;
  TabArray : Array [0..4] of integer;
begin
  Memo1.WantTabs := True;
  for ndx := 0 to 4 do
  begin
   TabArray[ndx] := 30 * ndx;
  end;
  SendMessage(Memo1.Handle,EM_SETTABSTOPS,5,LongInt(@TabArray));
end;

Dabei ist wohl zu beachten, dass als Einheit für die Tabs "Template Units" verwendet werden. mit Zeichenanzahl * 4 + Abstand sollte das funktionieren, habe ich aber nicht getestet.

Gruß,
Zugi