Einzelnen Beitrag anzeigen

Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
524 Beiträge
 
FreePascal / Lazarus
 
#17

AW: Text vor einem bestimmten Zeichen NICHT löschen

  Alt 10. Mär 2020, 16:03
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 )
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.

Geändert von Moombas (10. Mär 2020 um 16:08 Uhr)
  Mit Zitat antworten Zitat