Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#12

AW: Markierung verschiebt sich in jeder Zeile

  Alt 16. Mai 2017, 20:02
Das ist dann aber ein komisches Verhalten.

Wenn ich SelText was zuweise, dann erwarte ich doch, dass danach in SelText auch was drin ist, also das zugewiesene ebenfalls selektiert ist, denn schließlich hab ich da doch grade den neuen "selektierten Text" zugewiesen,
und wenn ich dann nochmal was Zuweise, dann würde das Selektierte doch wieder überschieben werden.




Mal in einem TMemo ausprobieren, aber dort ist es auch so ... ist doch schockierend.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  sUeberschrift : String;
  sText : String;
  i : Integer;
begin
  for i := 1 to 9 do begin
    sUeberschrift := Format('Überschrift: %d',[i]);
    sText := Format('das ist jetzt der Text für Zeile %d.',[i]);
    memoMessage.SelText := sUeberschrift + ' ';
    memoMessage.SelText := sText + #13;
  end;
end;
Wozu hab ich denn dann all die Jahre brav SelStart/SelLength nach Zuweisung an SelText gesetzt, wenn ich das nicht selektiert haben wollte.


Zitat:
SelLength = 0 und nicht SelText = <leer>
SelLength = Length(SelText)
Abgesehn von den misshandelten Zeilenumbrüchen seitens Embarcadero.
$2B or not $2B

Geändert von himitsu (16. Mai 2017 um 20:11 Uhr)
  Mit Zitat antworten Zitat