Warum nicht im OnChange:
Delphi-Quellcode:
if copy(Edit.Text, 0, 5) <> 'shell>' then Edit.Text := 'shell>';
if edit.selectionstart <= 6 then edit.selectionstart := length(edit.text); //Grad nicht sicher ob 6 oder 7
Ggf. im OnClick noch:
if edit.selectionstart <= 6 then edit.selectionstart := length(edit.text); //Grad nicht sicher ob 6 oder 7
Alles ungetestet und nur Theorie.
Alternative:
LabeledEdit und im Label das "shell>" Eintragen und (falls notwendig) dann entsprechend in der Edit.Text Verarbeitung dies jedesmal mit hinzufügen (
'shell>' + Edit.Text
bzw.
LabeledEdit.EditLabel.Caption + LabeledEdit.Text
)