Editfeld mit Tab. einrücken ?

[s14]

Hallo,
vielleicht hilft Dir folgender Code im OnChange Ereignis des Editfeldes:

Delphi-Quellcode:

procedure TForm.EditChange(Sender: TObject);
const
  myTab = '    ';
begin
  with (Sender as TEdit) do
  begin
    Text := myTab + TrimLeft(Text);
    Selstart := Length(Text);
  end;
end;

Die Weite des Tabs kannst Du dann in der Konstante myTab einstellen.