Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Lannes,
1. Jun 2011
deshalb der Alternativvorschlag:
(alternativ auf das erste #10 nach Selstart prüfen und entsprechend markieren)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Lannes,
31. Mai 2011
hmmmm, man muss ja nicht alles verstehen :spin2:
was möchtest Du denn nun? nachbauen oder ändern?
So wird das letzte Zeichen wieder aus der Markierung herrausgenommen:
case key of
VK_END: if ssShift in Shift then
RichEdit.SelLength := RichEdit.SelLength -1;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Lannes,
26. Mai 2011
Hallo,
Der Ankerpunkt ist der Punkt am dem zuletzt SelLength 0 war.
Im Richedit läßt es sich einfach prüfen:
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
if RichEdit1.SelLength = 0 then
Caption := IntToStr(RichEdit1.SelStart) //Ankerpunkt
else